Приложение на весь экран

← →
O.O (2006-09-06 06:25) [0]

Как сделать окно на весь экран, чтоб оно перекрыло всё, включая панель задач?

← →
031178 © (2006-09-06 06:27) [1]

> Как сделать окно на весь экран, чтоб оно перекрыло всё,
> включая панель задач?
Form1.windowState := wsMaximized;

← →
031178 © (2006-09-06 06:29) [2]

Ну что, получилось ?

← →
konrads (2006-09-06 07:18) [3]

Это нечто другое, надо не развернуть окно, а перекрыть весь десктоп

← →
Elen © (2006-09-06 07:49) [4]

> O.O

formStyle:=fsStayOnTop; top:=0; left:=0; width:=Screen.Width; Height:=Screen.Height;

← →
Elen © (2006-09-06 07:51) [5]

P.S. А если еще добавить BorderStyle:=bsNone ВАЩЩЕ будет класс!

← →
O.O (2006-09-06 08:33) [6]

Так вроде что надо :)

← →
O.O (2006-09-06 13:38) [7]

Как бы ещё заблокировать переключение между окнами через Alt+Tab и выход в главное меню Ctrl+Esc

← →
Думкин © (2006-09-06 14:19) [8]

> O.O (06.09.06 13:38) [7]

Программа с такими свойствами - для меня первый кандидат для корзины.

> Как бы ещё заблокировать переключение между окнами через
> Alt+Tab и выход в главное меню Ctrl+Esc
>

Зачем, если твоя прога все равно перекроет запускаемые проги. Ну Уж если так хочется - поройся в библиотечке этого сайта

Запуск программы на собственном десктопе.

program Project1; uses Forms, Windows, Unit1 in "Unit1.pas" {Form1}; {$R *.RES} var NewDesktop, thisdesktop : HDESK; begin thisdesktop := GetThreadDesktop(GetCurrentThreadId); Application.Free; NewDesktop := CreateDesktop( "MyDeskTop", nil, nil, 0, GENERIC_ALL, nil ); SetThreadDesktop( NewDesktop ); Application := TApplication.Create(nil); SwitchDesktop( NewDesktop ); Application.Initialize; ApApplication.CreateForm(TForm1, Form1); plication.Run; SetThreadDesktop( thisDesktop ); SwitchDesktop( thisDesktop ); CloseDesktop( NewDesktop ); end.

(c) Leonid Troyanovsky,
http://groups.google.com/group/borland.public.delphi.nativeapi/msg/04a7a516cbbee32a

← →
O.O (2006-09-07 05:04) [11]

Спасибо, попробую

form1.BorderIcons:=[biSystemMenu];
form1.BorderStyle:=bsSingle;
form1.WindowState:=wsMaximized;

И вся мудрость.

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