Social Icons

^^

quarta-feira, 13 de janeiro de 2010

Como pedir confirmação ao fechar tela na aplicação?

Este tópico deve ser utilizado sempre que se desejar perguntar ao usuário se ele deseja realmente fechar uma tela do sistema.



Procedimentos a serem executados:



 Digite os seguintes comandos no evento OnClose da tela desejada (em nosso exemplo a tela FrmMenuPrin):



// Sintaxe: MessageDlg(‘Mensagem’, tipo da tela, [botões], índice ajuda);

if MessageDlg('Deseja fechar a aplicação?', mtConfirmation,


[mbYes, mbNo], 0) = mrYes then


begin

// Dm.tab_Usuarios.Close; // remova o comentário após criar a tela DM

Action := caFree; //ação do objeto TCloseAction para fechar a tela


end


else


Action := caNone ; //ação do objeto TCloseAction para não fechar a tela



Obs: Outras opções de Caixa de Diálogo MessageDlg para usar em outra ocasião:

Tipos de tela: mtConfirmation, mtWarning, mtError, mtInformation, mtCustom



Botões: mbOk, mbCancel, mbYes, mbNo, mbAll, mbRetry, mbYesToAll, mbNoToAll, mbAbort



Respostas aos botões: mrOk, mrCancel, mrYes, mrNo, etc.

Nenhum comentário:

Postar um comentário

Popular Posts

- Arquivo -

 

Seguidores

Hora exata:

Total de visualizações de página