Colocar Focus no botao do messagedlg
07/07/2008
0
Exemplo: SIm ou Não
quero deixar o focus no botao Não.
Como proceder
abraços
fabio Correa
Fabiotb
Posts
08/07/2008
Webjoel
Keybd_Event(Vk_Right, 0, 0, 0);
if MessageDlg(´Texto da Mensagem.´, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//codigo
end;
08/07/2008
Webjoel
Para completar...
Esse código que postei faz o foco ir para o botão não, o melhor é você criar uma função para agilizar o seu trabalho, neste caso é só passar um parametro para focar o ´não´ ou não fazer nada e deixar o foco no sim.
Espero ter ajudado. Boas Compilações!
08/07/2008
Marco Salles
criar um MessageDlg Personalizado..
Tipo isto :
function MeuMessageDlg(Msg: string; AType: TMsgDlgType; AButtons:
TMsgDlgButtons; IndiceHelp: LongInt): Word;
var
Mensagem: TForm;
begin
Mensagem := CreateMessageDialog(Msg, AType, Abuttons);
Mensagem.HelpContext := IndiceHelp;
with Mensagem do
begin
if FindComponent(´NO´) <> nil then
ActiveControl:=Tbutton(FindComponent(´NO´));
end;
Result := Mensagem.ShowModal;
Mensagem.Free;
end;Para ´Chamar ´ é da mesma forma que o messageDlg Original
if MeuMessageDlg(´Meu MessageDLG´,mtinformation,[mbYes, mbNo],0) = mrYes then Showmessage(´sim´) else Showmessage(´no´);
espero ter sido útil...
08/07/2008
Marco Salles
criar um MessageDlg Personalizado..
Tipo isto :
function MeuMessageDlg(Msg: string; AType: TMsgDlgType; AButtons:
TMsgDlgButtons; IndiceHelp: LongInt): Word;
var
Mensagem: TForm;
begin
Mensagem := CreateMessageDialog(Msg, AType, Abuttons);
Mensagem.HelpContext := IndiceHelp;
with Mensagem do
begin
if FindComponent(´NO´) <> nil then
ActiveControl:=Tbutton(FindComponent(´NO´));
end;
Result := Mensagem.ShowModal;
Mensagem.Free;
end;Para ´Chamar ´ é da mesma forma que o messageDlg Original
if MeuMessageDlg(´Meu MessageDLG´,mtinformation,[mbYes, mbNo],0) = mrYes then Showmessage(´sim´) else Showmessage(´no´);
espero ter sido útil...
08/07/2008
Luiz Henrique
a nao ser que voce seja obrigado a usar o MessageDLg...
Tem uma funcao que podera fazer isto mais ´naturalmente´
if MessageBox(application.handle,pchar(´Excluir este Registro ? ´),
´Exclusao´,MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2) = mrYes then begin
end....
...no quarto parametro...voce podera indicar adicionando o MB_DEFBUTTON1..2...3 ao qual button deseja colocar o foco....
T+
08/07/2008
Luiz Henrique
a nao ser que voce seja obrigado a usar o MessageDLg...
Tem uma funcao que podera fazer isto mais ´naturalmente´
if MessageBox(application.handle,pchar(´Excluir este Registro ? ´),
´Exclusao´,MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2) = mrYes then begin
end....
...no quarto parametro...voce podera indicar adicionando o MB_DEFBUTTON1..2...3 ao qual button deseja colocar o foco....
T+
Clique aqui para fazer login e interagir na Comunidade :)
