Buscar por:

Usando o messagedlg

Código

Qnd vc quiser usar uma mensagem de Erro, Informação, Confirmação, utilize o MessageDlg....

Sua sintaxe:

MessageDlg('Frase...',mtDlgType,[mbDlgButtons],0);

--> MtDlgType

mtWarning       

mtError 

mtInformation   

mtConfirmation  

mtCustom        

---> MbDlgButtons

mbYes

mbNo 

mbOk

mbCancel

mbAbort

mbRetry

mbIgnore

mbAll

mbNoToAll

mbYesToAll

mbHelp

   Exemplo:

1- Caso voce queira usar para uma informação do tipo, seu arquivo foi salvo!:

   MessageDlg('Seu arquivo foi salvo com sucesso!',mtInformation,[mbOk],0);

2 - Caso vopce queira confirmar algo como a exclusão de um registro no Banco de Dados:

   MessageDlg('Você tem certeza que deseja excluir o registro?',mtConfirmation,[mbyes,mbno],0);

   ///O botao que o usuário clica é retornado como "mr"

   ///para excluir o registro do BD:

  If  MessageDlg('Você tem certeza que deseja excluir o registro?',mtConfirmation,[mbyes,mbno],0)=mryes

  then

     begin

       table1.delete;     

     end;