Текущий архив: 2006.09.24;
Скачать: CL | DM;

Вниз

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

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

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

---

← →
Elen ©   (2006-09-06 14:50) [9]

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

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

---

← →
Джо ©   (2006-09-06 15:11) [10]

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

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]

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

---

← →
4yma ©   (2006-09-07 08:03) [12]

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

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

---

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

Текущий архив: 2006.09.24;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.033 c