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

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

Vadik(R) Просмотр профиля Вставить ник	5:04:2008, 11:55
Продвинутый Группа: Программист Сообщений: 122 Регистрация: 12:12:2007 Из: Волгоград Пользователь №: 14 203 Специализация: Программист, знаю HTML, JS, CSS, Паскаль. Репутация: 2	Люди, какое сообщение надо послать хендлу окна, чтобы сделать его активным. Вот, что пытался: Код 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_, но так и не нашёл нужную. Почему-то всё равно активным делается моё приложение.
	Сообщение #1

Ответов (1 - 1)

Vadik(R) Просмотр профиля Вставить ник	5:04:2008, 16:49
Продвинутый Группа: Программист Сообщений: 122 Регистрация: 12:12:2007 Из: Волгоград Пользователь №: 14 203 Специализация: Программист, знаю HTML, JS, CSS, Паскаль. Репутация: 2	Упс, получилось! Намного проще. Раз есть GetForegroundWindow - значит есть и SetForegroundWindow
	Сообщение #2