Complemento no MessageBox
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
Curtidas 0
Respostas
Paullus
20/04/2004
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.
GOSTEI 0