Usando MessageBox

Apresentarei aqui duas formas de exibição de mensagem usando o MessageBox.

No primeiro caso, o texto a ser mostrado, é armazenado em duas variáveis do tipo String. Exemplo no botão 1:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Txt1, Txt2: String;
begin
Txt1 := ''; //limpa a variável
Txt2 := ''; //limpa a variável

Txt1 := 'Testando MessageBox';
Txt2 := 'Rio de Janeiro';

MessageBox(Application.Handle, PChar(Txt1), 'Teste 1', MB_ICONINFORMATION + MB_OK);

MessageBox(Application.Handle, PChar('Moro no '+Txt2), 'Teste 2', MB_ICONINFORMATION + MB_OK);
end;
* * * * * * * * * * * * ** ** * *** * * * * * **

Já no segundo caso, a mensagem é armazenada em uma variável do tipo PChar. Exemplo no botão 2:

procedure TForm1.BitBtn2Click(Sender: TObject);
var Msg : PChar;
begin
Msg := ''; //limpa a variável
Msg := 'Testando MessageBox';

Application.MessageBox(Msg,'Teste 1',MB_ICONINFORMATION);
//ou também pode ser:
MessageBox(Application.Handle, Msg, 'Teste 2', MB_ICONINFORMATION + MB_OK);
end;

******************************************************************

Faça o download do arquivo: Usando MessageBox.rar
******************************************************************

"Pense grande.
Quem já ouviu falar de Alexandre, o Médio?" Giles Montgomery.