Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - FAQ _ Какое сообщение послать окну, чтобы сделать его активным

Автор: Vadik(R) 5:04:2008, 11:55

Люди, какое сообщение надо послать хендлу окна, чтобы сделать его активным.
Вот, что пытался:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hide;
  Application.ProcessMessages;
  H:=GetForegroundWindow;
  Application.ProcessMessages;
  Show;
  Application.ProcessMessages;
  SendMessage(H, WM_ACTIVATE, 0, 0);
  Application.ProcessMessages
end;

Вместо WM_ACTIVATE пытался послать много констант начинающихся с SW_ или WM_, но так и не нашёл нужную. Почему-то всё равно активным делается моё приложение.

Автор: Vadik(R) 5:04:2008, 16:49

Упс, получилось! Намного проще. Раз есть GetForegroundWindow - значит есть и SetForegroundWindow