Форма на весь экран!

← →
serko © (2005-11-14 20:32) [0]

Делаю форму на весь экран так:
mainforms.ClientHeight:=screen.Height;
mainforms.ClientWidth:=screen.Width;
mainforms.Left:=0;
mainforms.top:=0;
и все ок!

Но при нажатии кнопки (на этой форме) которая запускает другую прогу, появляется системное меню. как сделать чтобы оно не появлялось?
FSStayontop уже пробовал- не помогает!

← →
serko © (2005-11-15 17:02) [1]

Удалено модератором
Примечание: Создание пустых сообщений

← →
злобная танька © (2005-11-15 19:17) [2]

что за системное меню?

← →
serko © (2005-11-15 22:29) [3]

Ну там де пуск и все такое!

← →
Kirill_ (2005-11-15 22:51) [4]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE then Close;
if (ssAlt in Shift) and (Key=VK_RETURN) then
begin
DXDraw1.Finalize;
if doFullScreen in DXDraw1.Options then
begin
RestoreWindow;
DXDraw1.Cursor := crDefault;
BorderStyle := bsSizeable;
DXDraw1.Options := DXDraw1.Options - [doFullScreen];
end else
begin
StoreWindow;
DXDraw1.Cursor := crNone;
BorderStyle := bsNone;
DXDraw1.Options := DXDraw1.Options + [doFullScreen];
end;
DXDraw1.Initialize;
end;
end;

← →
Kirill_ (2005-11-15 22:54) [5]

Извени я те на делфиикс дал, втупил!

← →
Kirill_ (2005-11-15 22:59) [6]

Дерзай я попробовал всё идёт

procedure TForm1.FormCreate(Sender: TObject); begin Form1.Width := Screen.Width; Form1.Height := Screen.Height; Form1.BorderStyle := bsNone; Form1.Top := 0; Form1.Left := 0; end;

← →
serko © (2005-11-16 22:21) [7]

Ниче не работает! Пуск то при запуске проги пропадает (и пропадал), но вот при запуске другой проги пуск появляется!

← →
злобная танька © (2005-11-17 00:22) [8]

гы.. можно подключить директ-икс и врубить монопольное юзание экрана.. но это жостко! хотя может и без директ-икса можно не знаю.

← →
Джо © (2005-11-17 04:44) [9]

> serko ©

Тут дело не в запуске приложения. Такая же картина будет и при простом переключении (Alt-Tab) на другое приложение.
Мораль проста - если твоей программе не нужен таскбар, это не означает, что он не нужен другим программам.

← →
Ильш © (2005-11-17 05:53) [10]

WindowState = wsMaximized
и будет тебе щастье

var
TaskBar : THandle;
begin
SetBounds(0,0,screen.width,screen.height);
Taskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(TaskBar, SW_hide);
end;
просто спрачь его

Ильш © (17.11.05 05:53) [10]

В комплекте с Form1.BorderStyle := bsNone;
И конечно никакого кода, все сделать мышкой в инспекторе объектов

> Crazy_Diman © (17.11.05 08:25) [11]

при отключенном флажке "автоматически убирать с экрана" работает только с WindowState = bsNone;
остальное ессно не работает как и сказал автор.

> Мораль проста - если твоей программе не нужен таскбар, это
> не означает, что он не нужен другим программам.

Эт понятно! ну а все таки!

> просто спрачь его

Прятать не охота, т.к. при каком либо сбое программы, оно просто не появится.
Я так делал уже!

Форма на весь экран! Найти похожие ветки