Tipo de Mensagem

[Rodrigo Miss 1]

Ola galera,, to tentando fazer um procedimento:

 

procedure Mensagem(strTexto: string; TipoMsg: xxxxxx);beginApplication.MessageBox(Pchar(strTexto),'Mensagem', mb_Ok + TipoMsg);end;

Alguem poderia me dizer q tipoww de variavel deve ser o TipoMsg,,,

 

pra poder ser passado na msg ,,, c eh or mb_IconInformation, ou oke???

[Rodrigo Miss 1]

Óh pessoal ,,,, naum axei nenhum outra forma entao fiz assim:

 

procedure Msg(strTexto, strCaption, Icon: string);beginif Icon = 'Information' then	begin	Application.MessageBox(Pchar(strTexto), Pchar(strCaption), mb_ok + mb_IconInformation);	end;if Icon = 'Error' then	begin	Application.MessageBox(Pchar(strTexto), Pchar(strCaption), mb_ok + mb_IconError);	end;if Icon = 'Warning' then	begin	Application.MessageBox(Pchar(strTexto), Pchar(strCaption), mb_ok + mb_IconWarning);	end;end;

c alguem tiver uma sugestao melhor me avise... ok

[marcio.theis 3]

Existe uma outra forma de fazer, que é passando um Integer, no caso caso botão, figura, tipo de mensagem é representado por um n°, segue exemplo e a tabela:

 

procedure TForm1.Mensagem(strTexto: string; TipoMsg: integer);begin{	MB_ICONHAND;		16	MB_ICONEXCLAMATION; 48	MB_ICONASTERISK;	64	MB_ICONWARNING;	 48	MB_ICONERROR;	   16	MB_ICONINFORMATION; 64	MB_ICONSTOP;		16	MB_ICONMASK;		240}Application.MessageBox(Pchar(strTexto),'Mensagem', mb_Ok + TipoMsg);end;

Para chamar basta:

 

Mensagem('Warning',48);

Neste caso irá mostrar uma mensagem de Warning, pois o n° 48 corresponde a

MB_ICONWARNING

[Rodrigo Miss 1]

Otimo kra,,, vlw msm....Brigado...,,,