Fórum Complemento no MessageBox #227254
20/04/2004
0
olá.
Gostaria de complementar informaçoes no messagebox, por exemplo,
Application.Messagebox(´Arquivo gravado em ´+aqui colocar uma informacao variavel´,´ATENCAO´,mb_OK+MB_IconInformation.
Recebo um erro de tipo de dados.
Já vi isto numa mensagem, mas não sei como fazer.
Alguém, sabe ??
Gostaria de complementar informaçoes no messagebox, por exemplo,
Application.Messagebox(´Arquivo gravado em ´+aqui colocar uma informacao variavel´,´ATENCAO´,mb_OK+MB_IconInformation.
Recebo um erro de tipo de dados.
Já vi isto numa mensagem, mas não sei como fazer.
Alguém, sabe ??
Brazoli
Curtir tópico
+ 0
Responder
Posts
20/04/2004
Paullus
Os dois primeiros parâmetros da função MessageBox são do tipo PChar. Aí num rola concatenação de string (não sei o motivo).
Mas é fácil... é só converter a sua concatenação em PChar. Eu faço assim:
Espero que tenha ajudado.
Mas é fácil... é só converter a sua concatenação em PChar. Eu faço assim:
procedure TfMain.mensagemVariavel(strMensagem : String); begin Application.Messagebox(PChar(´Arquivo gerado em ´ + strMensagem), ´ATENCAO´, MB_OK + MB_ICONINFORMATION); end;
Espero que tenha ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)