Application.messagebox

[ricardo.prs 0]

if Application.MessageBox( 'Caro Sr.' + uppercase(FrmBancos.QrLocFunNOMEFUNC.AsString)'Deseja sair?',' DSC - Informática ',mb_YesNo +mb_iconQuestion) = mrno then Abort; Application.Terminate;com este coódigo acima minha idéia é de colocar o nome do usuário quando o memso estiver saindo do meu sistema?Sei que este cogido esta errado. Qual a maneira correta?Sem mais.SDS

[ju_allegretti 0]

use a função "MessageDlg"

 

if MessageDlg('Caro Sr. ' + uppercase(FrmBancos.QrLocFunNOMEFUNC.AsString)+'. Deseja sair?',mtConfirmation,[mbYes, mbNo], 0) = mrNo then

begin

...

end;

 

[]s

[GodZilla_XF 0]

Use desta forma:

 

case MessageBox(Application.Handle, PChar('Atenção, ' + nome_variavel + 'deseja executar este comando'), 'Aviso', MB_YESNO + MB_ICONQUESTION) of

idYes: ; //faça algo

idNo : ; //faça algo

end;

 

espero ter ajudado...