| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

O.O ©   (2006-09-06 06:25:00) 

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

---

4yma   (2006-09-07 08:03:00) [1]

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

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

---

O.O   (2006-09-07 05:04:00) [2]

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

---

Джо   (2006-09-06 15:11:00) [3]

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

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

---

Elen   (2006-09-06 14:50:00) [4]

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

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

---

Думкин   (2006-09-06 14:19:00) [5]

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

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

---

O.O   (2006-09-06 13:38:00) [6]

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

---

O.O   (2006-09-06 08:33:00) [7]

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

---

Elen   (2006-09-06 07:51:00) [8]

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

---

Elen   (2006-09-06 07:49:00) [9]

> O.O

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

---

konrads   (2006-09-06 07:18:00) [10]

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

---

031178   (2006-09-06 06:29:00) [11]

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

---

031178   (2006-09-06 06:27:00) [12]

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

---

Наверх