[delphi-br] Re: Cancel - MessageBox

2005-01-29 Por tôpico Bruno Augusto



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 acionado usa dessa forma...


case Application.MessageBox('primeira linha!'+ char(#13) +'Segunda
linha','Titulo da Mensagem',mb_IconInformation+MB_YESNOCANCEL) of
 mrYes: SHowMessage('sim');
 mrNo: ShowMessage('Não');
 mrCancel: ShowMessage('cancelar');
end;


espero poder ter ajudado...

Bruno Coelho



--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu
 
 Pessoal
 
 Eu tenho message box com os tres botões:
 - sim
 - não
 - cancelar
 
 queria fazer o seginte:
 - sim: gravar e sair
 - não: sair sem gravar
 - cancelar: não fazer nada, apenas fechar o message box
 
 O sim e o não estão ok... mas como faço para cancelar?
 
 Obrigado @
 Abraço
 Erika








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





RES: [delphi-br] Re: Cancel - MessageBox

2005-01-29 Por tôpico Alessandro Fernandes

Pelo que entendi, a colega Erika gostaria que o botão CANCELAR apenas
fechasse o MessageBox voltando a edição do form. O SIM gravaria e sairia do
form de edição e o NÃO não gravaria mas também sairia e do form de edição.
Neste caso faz todo o sentido o botão CANCELAR.
 
_
Alessandro Cunha Fernandes 
SoftTI - Software e Consultoria e TI. 
[EMAIL PROTECTED] 
Fone/Fax: +55 24 2458-4538 
  
VAI IMPRIMIR? Pense antes em sua responsabilidade
com a preservação do meio ambiente e com a redução
de seus custos.  
 

  _  

De: Bruno Augusto [mailto:[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 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 acionado usa dessa forma...


case Application.MessageBox('primeira linha!'+ char(#13) +'Segunda
linha','Titulo da Mensagem',mb_IconInformation+MB_YESNOCANCEL) of
 mrYes: SHowMessage('sim');
 mrNo: ShowMessage('Não');
 mrCancel: ShowMessage('cancelar');
end;


espero poder ter ajudado...

Bruno Coelho



--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu
 
 Pessoal
 
 Eu tenho message box com os tres botões:
 - sim
 - não
 - cancelar
 
 queria fazer o seginte:
 - sim: gravar e sair
 - não: sair sem gravar
 - cancelar: não fazer nada, apenas fechar o message box
 
 O sim e o não estão ok... mas como faço para cancelar?
 
 Obrigado @
 Abraço
 Erika








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
http://br.rd.yahoo.com/SIG=12a6ebl8l/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107080519/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/ 

 
http://br.rd.yahoo.com/SIG=12a6ebl8l/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107080519/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/  
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília


  _  

Links do Yahoo! Grupos


*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html . 




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Re: Cancel - MessageBox

2005-01-28 Por tôpico Roberto Dill


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 then
  begin
ShowMessage('selecionou não');
  end
  else
  if res = IDCANCEL then
  begin
ShowMessage('selecionou cancel');
  end
end;

--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] 
escreveu
 
 Pessoal
 
 Eu tenho message box com os tres botões:
 - sim
 - não
 - cancelar
 
 queria fazer o seginte:
 - sim: gravar e sair
 - não: sair sem gravar
 - cancelar: não fazer nada, apenas fechar o message box
 
 O sim e o não estão ok... mas como faço para cancelar?
 
 Obrigado @
 Abraço
 Erika





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html