VPF::Размеры формы - Форум программистов

Matematik

Дата 19.7.2006, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Как сделать чтобы размеры у формы были на весь экран, т.ж. как при wsMaximized, но при wsNormal, чтобы учитывалась панель пуска и всякие прилипшие к раб столу аськи.

Romikgy

Дата 19.7.2006, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

брать размеры рабочего стола/экрана и по таймеру устанавливать размер формы

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Matematik

Дата 19.7.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Вот размер раб стола мне и нужен, как его получить.

Mechanic

Дата 19.7.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

Код


var Scr: TRect;
..
SystemParametersInfo(SPI_GETWORKAREA,0,@Scr,0);

Ну, так у нас, в Диптауне.. smile

--------------------

Tell me the extensions of the files You backup and I'll tell You who You are.. ©Mch

Matematik

Дата 19.7.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

2 Mechanic
Большое спасибо Ж)

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var Scr: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@Scr,0);
  Left := Scr.Left+1;
  top  := Scr.Top+1;
  Height := Scr.Bottom-Scr.Top-2;
  Width  := Scr.Right-Scr.Left-2;
  caption := Inttostr(Width)+'/'+Inttostr(Height)
end;

Yanis

Дата 19.7.2006, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

1 строка кода более читаема чем 6 smile

Код

Form1.BoundsRect := Screen.WorkAreaRect;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »