[Delphi] Mensagem

[Zaum 39]

Gente como eu faço uma mensagem de sim ou não, tipo o kara quer sair do meu programa e aparece uma mensegem

 

Você quer mesmo sair?

 

ai se ele clica em sim o programa fecha, mais se ele clica em não o programa continua aberto

 

como faiz?

[AceStryker 32]

var

buttonSelected : Integer;

begin

 

buttonSelected := MessageDlg('Custom dialog',mtCustom,

[mbYes,mbAll,mbCancel], 0);

if buttonSelected = mrYes then ShowMessage('Yes pressed');

if buttonSelected = mrAll then ShowMessage('All pressed');

if buttonSelected = mrCancel then ShowMessage('Cancel pressed');

end;

[~EvilCode 93]

Poderia usar um case também, o que na minha opinião seria mais limpo...

[Ryokusei 28]

No evento OnCloseQuery do Form use:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se