Поверх окон
Ребят, я вроде сделал так, что у меня прога сворачивается в трей. А вот с "поверх окон" что-то никак не разберусь. В процедуре Tform3.Create пишу formstyle:=fsStayOnTop... но форма не остается поверх всех окон (может это из-за того, что эту процедуру я вызываю много раз нажатием гор. клавиши). В общем непонятно.. я порылся нарыл вот такой код:
var
wnd: HWND;
begin
wnd := GetForegroundWindow;
Show;
FormStype := fsStayOnTop;
SetForegroundWindow(wnd);
SetActiveWindow(wnd);
end;
Казалось бы все замечательно, но 1) Приходится сразу при запуске программы создавать одну форму 2) Если я вызываю создание формы гор. клавишей, то она остается поверх всех окон только до того момента, как станет активной, почле того, как оно один раз стало активной оно перестает быть "onTop" ((
Вообще моя идея (надеюсь так будет легче понять):
У меня есть прога она при запуске создает иконку в трее (это есть).. Потом с помощью гор клавиш или с помощью меню popup я вызываю метод создания новой формы (тоже есть)... Мне надо, чтобы эта форма была всегда "onTop".
С уважением Arsen. Заранее спасибо за помощь.
|