Fórum Colocar o nome do campo dentro do Application.MessageBox? #326579
01/08/2006
0
Bom dia amigos delphianos gostaria de saber como fasso para colocar o nome do campo dantro da caixa do Application.MessageBox
Fiz assim e naum consegui:
agora se fizer usando um MessageDLG funciona:
Fiz assim e naum consegui:
if application.messagebox(´Deseja Excluir este Lançamento:´ + #13+ dm.qtbcontalan.FieldByName(´nomeconta´).AsString+´?´, ´Excluir Dados´, MB_ICONQUESTION + MB_YESNO) = IDYES then BEGIN
agora se fizer usando um MessageDLG funciona:
if MessageDlg(´Deseja excluir este Lançamento:´+ 13+ dm.qtbcontalan.FieldByName(´nomeconta´).AsString+´?´, mtConfirmation,[mbYes, mbNo],0) = mrYes then begin
Jlimajr
Curtir tópico
+ 0
Responder
Posts
01/08/2006
Rodrigo_arruda
Amigo jlimajr,
Para colocar variaveis na função application.messageBox
basta usar Pchar().
Ex:
Application.MEssageBox(Pchar(Valores), Pchar(Valores), mb_???, mb_???)
espero ter ajudado
[]´s
Para colocar variaveis na função application.messageBox
basta usar Pchar().
Ex:
Application.MEssageBox(Pchar(Valores), Pchar(Valores), mb_???, mb_???)
espero ter ajudado
[]´s
Responder
Gostei + 0
01/08/2006
Rodrigo_arruda
Vai aqui um exemplo mais pratico
if application.messagebox(Pchar(´Deseja Excluir este Lançamento:´ + #13+ dm.qtbcontalan.FieldByName(´nomeconta´).AsString+´?´), Pchar(´Excluir Dados´+Self.Caption), MB_ICONQUESTION
+ MB_YESNO) = IDYES
[]´s
if application.messagebox(Pchar(´Deseja Excluir este Lançamento:´ + #13+ dm.qtbcontalan.FieldByName(´nomeconta´).AsString+´?´), Pchar(´Excluir Dados´+Self.Caption), MB_ICONQUESTION
+ MB_YESNO) = IDYES
[]´s
Responder
Gostei + 0
01/08/2006
Jlimajr
Mais uma vez fico grato por me ajudar.
Valeu colega. Funcionou perfeitamente. :D
Valeu colega. Funcionou perfeitamente. :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)