quinta-feira, 24 de setembro de 2009

Showmessage com quebra de linhas

Procedure TForm1.Button1Click(Sender: TObject);
var
MSG : String;
begin
MSG := 'Mensagem da Primeira Linha'+#13+'Mensagem da Segunda Linha'+#13+'Mensagem da Terceira Linha';
ShowMessage(MSG);
end;
ATENÇÃO. A quebra foi possível através do codigo #13.

Nenhum comentário:

Postar um comentário