![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Форма на весь экран [D6, Win95/98]
MK © (2002-02-16 18:28:00)Приветствую! Подскажите, пожалуйста, как развернуть форму на весь экран (fullscreen) и чтобы она была поверх всех.
Набережных С. (2002-02-16 22:39:00) [21]
SetWindowPos(Handle,HWND_TOPMOST,0,0,Screen.Width,Screen.Height,0);
BorderStyle:=bsNone.
MK (2002-02-16 22:29:00) [22]Этот "как вариант" как раз развернет форму на весь экран, но не накроет панель задач (это и требуется).
panov (M) (2002-02-16 22:16:00) [23]Как вариант:
MainForm.Width := Screen.Width;
MainForm.Height := Screen.Height;
по таймеру выполнять:
SetWindowPos
SetActiveWindow
Application.Restore
MK (2002-02-16 21:49:00) [24]К сожалению не работает ни то не другое. Нужно, чтобы форма была поверх панели задач Windows, поверх ВСЕХ окон всех приложений. Что-то слышал про SetWindowPos, но как и его ее использовать - не знаю.
Yr2 (2002-02-16 20:55:00) [25]еще проще: установить свойство формы WindowState:=wsMaximized;
см. также свойство Position
LLL (2002-02-16 19:52:00) [26]FormStyle fsStayOnTop
procedure TForm1.FormCreate(Sender: TObject);
begin
Top:=0;
Left:=0;
Height:=Screen.Height;
Width:=Screen.Width;
end;
MK (2002-02-16 18:54:00) [27]Забыл уточнить... Форма должна "перекрыть" панель задач Windows и окна других прог, установленных поверх остальных.