Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.227.161.132] |
|
Сообщ.
#1
,
|
|
|
Как развернуть форму на весь экран?
Какой командой? Form1.....? |
Сообщ.
#2
,
|
|
|
Form1.WindowState:=wsMaximized; |
Сообщ.
#3
,
|
|
|
nekto550
ну если вообще на весь то можно ещё так with Form1 do begin WindowState := wsMaximized; BorderStyle := bsNone; end; |
Сообщ.
#4
,
|
|
|
А если у меня BorderStyle в None, а форму развернуть надо не на весь экран, а как обычную программу, с таскбаром внизу...
|
Сообщ.
#5
,
|
|
|
Цитата Алексей @ А если у меня BorderStyle в None, а форму развернуть надо не на весь экран, а как обычную программу, с таскбаром внизу... тогда вручную можно изменять свойства TForm.Height, TForm.Width |
Сообщ.
#6
,
|
|
|
Цитата oneday @ тогда вручную можно изменять свойства TForm.Height, TForm.Width при этом необходимо узнавать разрешение экрана пользователя, и изменять Height и Width по отнешению с разрешением экрана, так как форма может просто не влезть в рабочий стол. (у самого такое было ) |
Сообщ.
#7
,
|
|
|
Цитата при этом необходимо узнавать разрешение экрана пользователя, и изменять Height и Width по отнешению с разрешением экрана, так как форма может просто не влезть в рабочий стол. правильней узнавать не разрешение экрана, а размеры рабочей области (appbar'ы откушают ведь какую то область). var rWorkArea: TRect; бегин SystemParametersInfo(SPI_GETWORKAREA, 0, @rWorkArea, 0); // rWorkArea - прямоугольник рабочей области для окон |
Сообщ.
#8
,
|
|
|
Спасибо!
сделал так: SystemParametersInfo(SPI_GETWORKAREA, 0, @rWorkArea, 0); Main.WindowState:=wsMaximized; Main.Height:=rWorkArea.Bottom; всё замечательно работает) |
Сообщ.
#9
,
|
|
|
Алексей
не совсем верно, нужно ведь учесть и ширину (например бар из висты будет мешать, или панель офиса внешнаяя). Возвращаемый Trect и есть доступная область - rect.left - слева, rect.top - сверху, rect.bottom - нижняя часть, но не высота формы! |