Acredito que não faça sentido existir o botão cancelar...
pois se vc não insere evento no mesmo o messagebox fecha e nada
acontece...
se vc colocar um evento de cancelamento de edição, ou inserção pode
tb.. mas o mesmo não serviria no botão NÃO?
de todo jeito para pegar qual botão que foi
:[EMAIL PROTECTED]
Enviada em: sexta-feira, 28 de janeiro de 2005 01:42
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Cancel - MessageBox
Acredito que não faça sentido existir o botão cancelar...
pois se vc não insere evento no mesmo o messagebox fecha e nada
acontece...
se vc colocar
Olá, eu faria assim:
procedure TForm1.Button1Click(Sender: TObject);
var
res : Integer;
begin
// usando api
res:=Application.MessageBox(PChar('Ação desejada'),PChar
('Aviso'),MB_YESNOCANCEL);
if res = IDYES then
begin
ShowMessage('selecionou sim');
end
else
if res = IDNO
3 matches
Mail list logo