Текущий архив: 2003.02.03;
Скачать: 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 вся ветка
Текущий архив: 2003.02.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
