Buscar

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;
 
 

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 26/10/04
Por: Antonio Ramos De Carvalho Junior
Visualizada: 75022 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009