Форму на передний план!

[Altera]

Падскажите пожалуйста...
Как мне програмно сделать так, чтоб неактивная форма, становилась активно и выводилась бы на передний план, как при щелчке по неактивной форме...

Спасибо заранее!

[B_N]

BringWindowToTop(FormX.Handle);

SetForegroundWindow(FormX.Handle);

[Altera]

Эт не помогает...

[B_N]

Сообщение от Altera

Эт не помогает...

Код в студию.

[Altera]

Допустим:

parocedure tMain_form.Main_TimerOnTimer(sender: tObject);
begin
   {Вот здесь я хочу, чтоб форма выводилась на передний план и становилась октивной}
end;

[B_N]

Сообщение от Altera

Допустим:

parocedure tMain_form.Main_TimerOnTimer(sender: tObject);
begin
   {Вот здесь я хочу, чтоб форма выводилась на передний план и становилась октивной}
end;

procedure tMain_form.Main_TimerOnTimer(sender: tObject);
begin
	SetForegroundWindow(tMain_form.Handle);
end;

[mihali4]

SetForegroundWindow(tMain_form.Hand le);

Не-а, только иконка на панели задач мигает и все...

[B_N]

Сообщение от mihali4

Не-а, только иконка на панели задач мигает и все...

Это зависит от установки параметра HKCU\Control Panel\Desktop\ForegroundLockTimeout и функции LockSetForegroundWindow, появившихся в NT5 и Win98 - WinME, как раз с той целью, чтобы запретить красть фокус ввода процессам, не соответствующим следующим условиям:

Windows 98/Me: The system restricts which processes can set the foreground window. A process can set the foreground window only if one of the following conditions is true:

The process is the foreground process.
The process was started by the foreground process.
The process received the last input event.
There is no foreground process.
The foreground process is being debugged.
The foreground is not locked (see LockSetForegroundWindow).
The foreground lock time-out has expired (see SPI_GETFOREGROUNDLOCKTIMEOUT in SystemParametersInfo).
Windows 2000/XP: No menus are active.

Если топикстартер просто хочет вытащить окно наверх то можно это сделать с помощью

SetWindowPos(tMain_form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

[Програмёр]

А чем не подходит простой вызов formX.show; или formX.BringToFront; ? )) По-моему оба удовлетворяют условия автора ))

[mihali4]

Сообщение от Програмёр

А чем не подходит простой вызов formX.show; или formX.BringToFront; ? )) По-моему оба удовлетворяют условия автора ))

Ответ на ваш вопрос вы получите, опробовав предложенное вами, так сказать, на натуре...
Не всегда чистая теория плавно воплощается в практике.

Если топикстартер просто хочет вытащить окно наверх то можно это сделать с помощью
SetWindowPos(tMain_form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

Красное - лишнее.
Да, вытаскивает наверх (я этот вариант предварительно уже рассмотрел), но...
Насколько я понял топикстартера, ему не нужно, чтобы форма навечно поселилась поверх всех остальных. Ему нужно, чтобы пользователь мог, как и обычно, работать с любой другой формой, а та самая пресловутая "его форма", скажем так, с периодичностью, установленной в таймере, напоминала о себе... То есть, могла бы становиться и закрытой другими формами.
Или я не прав?