Скачать: CL | DM;

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

← →
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;

---

← →
Palladin ©   (2003-01-24 15:10) [4]

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

Код восстановления окна на экране (если конечно на нем нет окон Always on top)

ShowWindow(Application.HANDLE,SW_SHOW);
Application.Restore;
Application.BringToFront;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c