1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. Vadik(R)

    Vadik(R) Well-Known Member

    Репутация:
    0
    Регистрация:
    12 дек 2007
    Сообщения:
    469
    Симпатии:
    0
    Люди, какое сообщение надо послать хендлу окна, чтобы сделать его активным.
    Вот, что пытался:
    Код:
    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
    Сообщения:
    469
    Симпатии:
    0
    Упс, получилось! Намного проще. Раз есть GetForegroundWindow - значит есть и SetForegroundWindow :)
     
Загрузка...

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