Вниз
Скачать: 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
1-58203
546634
2002-07-06 15:25
2002.07.18
Помогите записать данные в реестр!


1-58088
Славик
2002-07-07 23:28
2002.07.18
Drag&Drop в ListBoxe


3-57971
Даурен
2002-06-26 12:48
2002.07.18
Привет Мастерам!!!!


14-58299
perov
2002-06-20 09:34
2002.07.18
TXQuery


1-58190
Skywalker
2002-07-05 19:54
2002.07.18
string




   Наверх