Вниз
Скачать: CL | DM;

FullScreen   Найти похожие ветки 

← →
Natalia   (2002-07-05 08:23) [0]

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


← →
Ser_Kham1   (2002-07-05 08:53) [1]

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


← →
Vap   (2002-07-05 08:56) [2]

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


← →
tsarevep ©   (2002-07-05 09:38) [3]

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


← →
gs   (2002-07-05 10:01) [4]

procedure TFooForm.ButtonFooClick(Sender: TObject);
begin

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

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


← →
ekiM   (2002-07-05 10:20) [5]

Развитие идеи господина 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;


← →
Rem ©   (2002-07-05 13:45) [6]

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


← →
Севостьянов Игорь ©   (2002-07-05 16:30) [7]

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

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



← →
Anatoly Podgoretsky ©   (2002-07-05 16:43) [8]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c
14-58294
Sergey13
2002-06-21 11:32
2002.07.18
Предложение по организации форума


14-58314
Neo !!
2002-06-21 15:17
2002.07.18
ОГРОМНАЯ ПРОСЬБА !!


1-58085
diww
2002-07-05 10:37
2002.07.18
Как узнать размер шрифта Windows?


14-58290
Voldemar2
2002-06-21 17:30
2002.07.18
Как изменить свойство о кучи однотипных элементов?


3-57933
kolonist2
2002-06-25 12:50
2002.07.18
Как создать в Делфи БД (не псевдонимб а именно БД)




   Наверх