Mensagem...

17/03/2006

Amigos,
Como faz para deixar o foco no Botão Não.
Tentei de todo jeito que pude e nada .

procedure TFPessoas.BtnExcluirClick(Sender: TObject);
begin
  If MessageBox(Self.Handle, ´Ao Excluir o Participante você perderá todos os lançamentos´ + #13+
  ´do dizimista. Desejá realmente Excluir?´ , PChar(Application.Title), MB_ICONQUESTION + MB_YESNO = IDYES Then
   Begin
     If Not(Transaction.InTransaction) Then  Transaction.StartTransaction;
      Query.Delete;
      Query.ApplyUpdates;
      Transaction.CommitRetaining;
      HabilitarBotoes;
   End;
end;


Desde já agradeço.

Rodrigo


Rodrigorpb

Respostas

17/03/2006

Emerson

procedure TFPessoas.BtnExcluirClick(Sender: TObject); 
begin 
  If MessageBox(Self.Handle, ´Ao Excluir o Participante você perderá todos os lançamentos´ + #13+ 
    ´do dizimista. Desejá realmente Excluir?´,
     PChar(Application.Title), MB_ICONQUESTION + MB_YESNO, MB_DEFBUTTON2) = IDYES Then 
  Begin 
    If Not(Transaction.InTransaction) Then Transaction.StartTransaction;
    Query.Delete; 
    Query.ApplyUpdates; 
    Transaction.CommitRetaining; 
    HabilitarBotoes; 
  End; 
end;



Responder Citar

17/03/2006

Rodrigorpb

emerson.en,

Não funcionou MB_DEFBUTTON2.

[b:a93c722780][Error] UPessoas.pas(215): Too many actual parameters
[Fatal Error] Sistema.dpr(126): Could not compile used unit ´Cadastros\UPessoas.pas´[/b:a93c722780]


Responder Citar

17/03/2006

Rodrigorpb

Achei o erro:

[b:617c019fb7]PChar(Application.Title), MB_ICONQUESTION + MB_YESNO, MB_DEFBUTTON2) = IDYES[/b:617c019fb7]

É assim

[b:617c019fb7]PChar(Application.Title), MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES[/b:617c019fb7]


Valeu emerson.en

Deu certinho


Rodrigo.


Responder Citar