Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
ВнизФорма на весь экран! Найти похожие ветки
← →
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
и будет тебе щастье
← →
Crazy_Diman © (2005-11-17 08:25) [11]var
TaskBar : THandle;
begin
SetBounds(0,0,screen.width,screen.height);
Taskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(TaskBar, SW_hide);
end;
просто спрачь его
← →
Anatoly Podgoretsky © (2005-11-17 09:07) [12]Ильш © (17.11.05 05:53) [10]
В комплекте с Form1.BorderStyle := bsNone;
И конечно никакого кода, все сделать мышкой в инспекторе объектов
← →
злобная танька © (2005-11-17 09:50) [13]
> Crazy_Diman © (17.11.05 08:25) [11]
при отключенном флажке "автоматически убирать с экрана" работает только с WindowState = bsNone;
остальное ессно не работает как и сказал автор.
← →
serko © (2005-11-17 13:20) [14]
> Мораль проста - если твоей программе не нужен таскбар, это
> не означает, что он не нужен другим программам.
Эт понятно! ну а все таки!
> просто спрачь его
Прятать не охота, т.к. при каком либо сбое программы, оно просто не появится.
Я так делал уже!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.116 c