Вниз
Скачать: 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.009 c
6-58241
KvORubin
2002-05-08 17:31
2002.07.18
Как поместить файл на сайт при открытом доступе етс ???


1-58092
KIERAN
2002-07-04 00:58
2002.07.18
Делегирование


4-58375
dumb
2002-05-17 22:35
2002.07.18
Запуск консольного приложения...


1-58185
ao1973
2002-07-04 23:00
2002.07.18
Как сделать чтобы в листбоксе таскать туда сюда


1-58149
amochkin
2002-07-05 14:25
2002.07.18
Создание Polygon из динамического массива точек.




   Наверх