Array
(
)

Mensagem...

Rodrigorpb
   - 17 mar 2006

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

#Código

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


Emerson
   - 17 mar 2006

#Código

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;



Rodrigorpb
   - 17 mar 2006

emerson.en,

Não funcionou MB_DEFBUTTON2.

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


Rodrigorpb
   - 17 mar 2006

Achei o erro:

PChar(Application.Title), MB_ICONQUESTION + MB_YESNO, MB_DEFBUTTON2) = IDYES

É assim

PChar(Application.Title), MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES


Valeu emerson.en

Deu certinho


Rodrigo.