Olá,
não precisa de tanta linha de código, é só um comando:
por exemplo:
if Application.MessageBox('Deseja finalizar a
aplicação?','Finalização',mbIconQuestion+MB_YESNO+MB_DEFBUTTON2) = IDYES
then
form1.Close;
MB_DEFBUTTON1:primeiro botão default
MB_DEFBUTTON2:Segundo botão default
MB_DEFBUTTON3:terceiro
MB_DEFBUTTON4:quarto
Espero ter ajudado
Abraços
----- Original Message -----
From: "Marcelo Silva" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, March 04, 2005 10:33 AM
Subject: Re: [delphi-br] MessageDlg com "Não" como default
Tem esse personalizado :-)
Criando seu proprio MessageDialog
procedure TForm1.Button1Click(Sender: TObject);
var
MsgMarc: TForm;
begin
// Bem agora nossa Msg é um Form, então está com todas as facilidades
deste.
MsgMarc := CreateMessageDialog('Marcelo da Silva
Sauro',mtInformation,mbOKCancel);
// Faz a ancora para centralizar os botoes
TButton(MsgMarc.Components[2]).Anchors :=
[akLeft,akRight]-[akLeft,akRight];
TButton(MsgMarc.Components[3]).Anchors :=
[akLeft,akRight]-[akLeft,akRight];
// Cumprimento da mensagem
MsgMarc.Width := 300;
// Um exemplo é que podemos modificar as fontes.
MsgMarc.Font.Color := clRed;
// Tambem podemos modificar o Caption
MsgMarc.Caption := 'Minha mensagem';
// Um Msg é composto por Label e Buttons então vamos fazer uso disso
TLabel(MsgMarc.Components[1]).Font.Style := [fsBold];
TLabel(MsgMarc.Components[1]).WordWrap := False;
TButton(MsgMarc.Components[2]).Caption := 'ACEITAR';
TButton(MsgMarc.Components[3]).Caption := 'FINALIZAR';
// Deixa o segundo botão ativo
MsgMarc.ActiveControl := TButton(MsgMarc.Components[3]);
// Agora é só exibir nosso Dialog personalizado
MsgMarc.ShowModal;
// Bem fica a cada um adicionar sua personalização :-)
end;
----- Original Message -----
From: Osmar de Souza Júnior
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 04, 2005 8:38 AM
Subject: [delphi-br] MessageDlg com "Não" como default
Queria fazer um MessageDlg com o botão "No" vindo com o foco.
Vi no help do Delphi:
MessageDlg('mensagem olá', mtWarning, [mbYes,mbNo], 0, mbNo)
Mas dá erro dizendo que têm parâmetros demais na função...
????
????
--
<<<<< 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:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
----------------------------------------------------------------------------
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
[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
--
<<<<< 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
