Поверх всех окон

← →
badaxe © (2003-01-24 14:46) [0]

Как сделать так чтоб форма моя появлялась из tray поверх всех остальных открытых окон?
Спасибо.

← →
Palladin © (2003-01-24 14:57) [1]

попробуй
Application.BringToFront;

← →
Андрей Сенченко © (2003-01-24 14:59) [2]

в FAQ есть совершенно роскошный пример

← →
Андрей Сенченко © (2003-01-24 15:02) [3]

На самом деле если Ты активизируешь приложение на экран из трея - его окно само по себе встанет поверх всех. Если же Тебе нужно сделать "Совсем поверх всех и там оставить как в аське" ...
Вот так сделано у меня ( по клику кнопки - поверх всех или на панель ):

procedure TFmMain.BtnWindowStyleClick(Sender: TObject);
begin
If BtnWindowStyle.Caption = "Поверх всех"
Then
Begin
Setwindowpos( Application.MainForm.Handle,
HWND_TOPMOST,
Application.MainForm.Left,
Application.MainForm.Top,
Application.MainForm.Width,
Application.MainForm.Height,
SWP_SHOWWINDOW);
BtnWindowStyle.Caption := "На панель"
End
Else
Begin
Setwindowpos( Application.MainForm.Handle,
HWND_BOTTOM,
Application.MainForm.Left,
Application.MainForm.Top,
Application.MainForm.Width,
Application.MainForm.Height,
SWP_SHOWWINDOW);
BtnWindowStyle.Caption := "Поверх всех"
End;
end;

2 Андрей Сенченко
у меня окно при Application.Restore после
ShowWindow(Application.HANDLE,SW_HIDE)
не всегда выходило на передний план.
Приходилось именно BringToFront делать.

Код восстановления окна на экране (если конечно на нем нет окон Always on top)
ShowWindow(Application.HANDLE,SW_SHOW); Application.Restore; Application.BringToFront;

Поверх всех окон Найти похожие ветки