Mensagem...
17/03/2006
0
Amigos,
Como faz para deixar o foco no Botão Não.
Tentei de todo jeito que pude e nada .
Desde já agradeço.
Rodrigo
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
Curtir tópico
+ 0
Responder
Posts
17/03/2006
Emerson Nascimento
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
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]
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
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.
[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
Clique aqui para fazer login e interagir na Comunidade :)
