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

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

FullScreen [D6, Win95/98]

Natalia ©   (2002-07-05 08:23:00) 

Люди, помогите плизз...
Мне нужно чтобы по нажатию кнопки форма переходила в полноэкранный режим... Пробовала код из FAQ, но выдаётся куча непонятных мне ошибок...Заранее благодарю :)

---

Anatoly Podgoretsky   (2002-07-05 16:43:00) [1]

Maximized разные бывают, и на полный экран и на часть

---

Севостьянов Игорь   (2002-07-05 16:30:00) [2]

Да нет же ребята полноэраннный режим это тебе не MaximizedWindow

Как сказал Ser_Kham1 (05.07.02 08:53)
SendMessage(Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);

---

Rem   (2002-07-05 13:45:00) [3]

Попробуйте так:
WindowState := wsMaximized;
BorderStyle := bsNone;

---

ekiM   (2002-07-05 10:20:00) [4]

Развитие идеи господина gs ^ :

procedure TMainForm.BtnMaximizeClick(Sender: TObject);
const
Maximized: Boolean = False;
WinRect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
SavedFormStyle: TFormStyle = fsNormal;
begin
Maximized := not Maximized;
if Maximized
then begin
GetWindowRect(Handle, WinRect);
SavedFormStyle := FormStyle;
FormStyle := fsStayOnTop;
Top := 0;
Left := 0;
Width := Screen.Width;
Height := Screen.Height;
end
else begin
Top := WinRect.Top;
Left := WinRect.Left;
Width := WinRect.Right - WinRect.Left;
Height := WinRect.Bottom - WinRect.Top;
FormStyle := SavedFormStyle;
end;
end;

---

gs   (2002-07-05 10:01:00) [5]

procedure TFooForm.ButtonFooClick(Sender: TObject);
begin

// Здесь можно сохранить значения всех изменяемых ниже
// свойств для их дальнейшего восстановления

FormStyle := fsStayOnTop;
Left := 0;
Top := 0;
Width := Screen.Width;
Height := Screen.Height;
end;

---

tsarevep   (2002-07-05 09:38:00) [6]

Так вам что надо "Как в игрушках разворачивать,что б все перекрыла или просто развернуть?"

---

Vap   (2002-07-05 08:56:00) [7]

procedure TForm1.Button1Click(Sender: TObject);
begin
WindowState:=wsMaximized;
end;

---

Ser_Kham1   (2002-07-05 08:53:00) [8]

SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);

---

Наверх