(Resolvido) foco em determinada janela

[flavioavilela]

bom dia pessoal... preciso que um MessageDlg venha já com o foco, sem precisar do uso do mouse...

estou usando assim:

SetForegroundWindow(FindWindow(nil, PWideChar('Warning')));

onde Warning é o título da janela do MessageDlg.... só que, a mensagem vem em primeiro plano, beleza, mas com o foco fora dela.... isso aqui é para uma aplicação para TEF, mais precisamente no módulo da VISA.... ele aparece uma tela onde tenho que escolher entre OK ou Cancelar... logo após isso, vem a MessageDlg...

alguém pode ajudar???

[João Paulo Taraciuk]

Poderia tentar com o Application.MessageBox:

if Application.MessageBox('Mensagem ', 'Caption', MB_ICONWARNING + MB_OKCANCEL + MB_DEFBUTTON2) = mrOk then
  ShowMessage('Clicou OK')
else
  ShowMessage('Clicou Cancelar');

com o MB_DEFBUTTON2 o foco vai ficar no segundo botão, aí você pode trocar MB_DEFBUTTON1, MB_DEFBUTTON2, MB_DEFBUTTON3 ou MB_DEFBUTTON4.

e a Mensagem fica no idioma do windows diferente do MessageDlg que, por padrão fica em inglês se não traduzir a Consts.

[flavioavilela]

eu sei, só que tem que ser no MessageDlg, entende...

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if MessageDlg('Deseja efetuar o Backup dos Arquivos ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     begin
         //
     end;
end;

abre a janela com o foco no botão < Yes >

abraço

[flavioavilela]

nada... será que tem algo a ver que o MessageDlg é um modal e a minha aplicação, não é modal???

[Jhonas]

Fiz um teste com janela modal e não modal e funciona normal...

em ultimo caso, voce pode criar a sua propria janela de mensagem, onde voce pode determinar o foco

abraço

[flavioavilela]

incrível.... acabei de colocar o MessageDlg aqui em outro lugar no sistema, e mesmo assim ele aparece, mas, sem o foco...

[Jhonas]

Experimente usar o MessageBox

http://www.susviela.hpg.ig.com.br/delphi/d...i/mensagens.htm

abraço

[flavioavilela]

bom, fiz umas modificações aqui e funcionou... o MessageDlg mesmo.. modifiquei os códigos... ficou meio sem lógica mas funcionou rsrsrs...