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

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

Форма на весь экран! [D6, XP]

serko ©   (2005-11-14 20:32:00) 

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

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

---

serko   (2005-11-17 13:20:00) [1]

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


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


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

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

---

злобная танька   (2005-11-17 09:50:00) [2]

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

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

---

Anatoly Podgoretsky   (2005-11-17 09:07:00) [3]

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

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

---

Crazy_Diman   (2005-11-17 08:25:00) [4]

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

---

Ильш   (2005-11-17 05:53:00) [5]

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

---

Джо   (2005-11-17 04:44:00) [6]

> serko ©

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

---

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

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

---

serko   (2005-11-16 22:21:00) [8]

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

---

Kirill_   (2005-11-15 22:59:00) [9]

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

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

---

Kirill_   (2005-11-15 22:54:00) [10]

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

---

Kirill_   (2005-11-15 22:51:00) [11]

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;

---

serko   (2005-11-15 22:29:00) [12]

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

---

злобная танька   (2005-11-15 19:17:00) [13]

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

---

serko   (2005-11-15 17:02:00) [14]

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

---

Наверх