Какое сообщение послать окну, чтобы сделать его активным

Тема в разделе "Delphi - FAQ", создана пользователем Vadik(R), 5 апр 2008.

  1. Vadik(R)

    Vadik(R) Well-Known Member

    Репутация:
    0
    Регистрация:
    12 дек 2007
    Сообщения:
    470
    Симпатии:
    0
    Люди, какое сообщение надо послать хендлу окна, чтобы сделать его активным.
    Вот, что пытался:
    Код (Text):
    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_, но так и не нашёл нужную. Почему-то всё равно активным делается моё приложение.
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Репутация:
    0
    Регистрация:
    12 дек 2007
    Сообщения:
    470
    Симпатии:
    0
    Упс, получилось! Намного проще. Раз есть GetForegroundWindow - значит есть и SetForegroundWindow :)
     
Загрузка...

Поделиться этой страницей