Модератор: Модераторы
Код: Выделить всё
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Application.Restore;
Application.BringToFront;
MainForm.BringToFront;
end;
Sharfik писал(а):А чем опция в свойствах с значением StayOnTop плоха? Или она только в Windows работает?
pupsik писал(а):В лине - зависит от ДЕ. Уже схожий вопрос был на форуме.
Да и в винде, кажись, не сильно работает. То работает, то нет.
Sharfik писал(а):А чем опция в свойствах с значением StayOnTop плоха? Или она только в Windows работает?
pupsik писал(а):Да и в винде, кажись, не сильно работает. То работает, то нет.
):Код: Выделить всё
{ вытащить окно на передний план на рабочем столе, порядок важен!!! }
ShowWindow(fMain.Handle, SW_SHOWNORMAL);
SetForeGroundWindow(fMain.Handle);
fMain.BringToFront;
resident писал(а):pupsik писал(а):Да и в винде, кажись, не сильно работает. То работает, то нет.
Стопудового способа для винды не нашел, в итоге плюнул и оставил такой вариант (уж и не помню подробностейКод: Выделить всё
{ вытащить окно на передний план на рабочем столе, порядок важен!!! }
ShowWindow(fMain.Handle, SW_SHOWNORMAL);
SetForeGroundWindow(fMain.Handle);
fMain.BringToFront;
McLion писал(а):В какое событие это ставить?
Код: Выделить всё
procedure TfMain.Timer1Timer(Sender: TObject);
begin
// 10 ms Interval
if GetForegroundWindow <> fMain.Handle then SetForeGroundWindow(fMain.Handle);
end;
procedure TfMain.Timer2Timer(Sender: TObject);
begin
// 100 ms Interval
ShowWindow(fMain.Handle, SW_SHOWNORMAL);
BringWindowToTop(fMain.Handle);
fMain.BringToFront;
end;