Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как установить размеры клиентской части окна? [D7, XP]

Б © (2009-12-17 19:52:00)
Здрасти!

Имеется окно. (не VCL)
Как установить размеры его клиентской части?
Т.е. без заголовка и бордера.
Функции SetClientRect нету.

Б (2009-12-17 22:33:00) [1]
> Можно и максимизировать

Попробуем.

ShowWindow(Handle, SW_SHOWMAXIMIZED);
Только шапка остаётся, но т.к. стили окна меняются не страшно.

DVM (2009-12-17 22:24:00) [2]

> А как тогда сделать? Максимизировать что ли?

Менять стили окна попутно с размерами и положением. Можно и максимизировать. Не вижу причин мучать клиентскую область.

Б (2009-12-17 22:21:00) [3]

> Цель всех этих манипуляций - создать окно на весь экран?
> Если да, то выбран явно не лучший способ.

Да, цель именно такая.
Подробнее здесь: http://www.delphimaster.ru/cgi-bin/forum.pl?id=1260506010&n=18

А как тогда сделать? Максимизировать что ли?

DVM (2009-12-17 22:21:00) [4]

> Да?

чего ты хочешь добиться в результате? И что ты имеешь в начале?

DVM (2009-12-17 22:19:00) [5]

> Б (17.12.09 22:15) [9]

> Теперь окно создаётся во весь экран.

Цель всех этих манипуляций - создать окно на весь экран? Если да, то выбран явно не лучший способ.

Б (2009-12-17 22:18:00) [6]
А что лучше использовать AdjustWindowRect или AdjustWindowRectEx?
В последнем ещё передается eX-стиль окна.
У моего окна расширенный стиль меняется. И поэтому думаю надо применять последнюю функцию? Да?

Б (2009-12-17 22:15:00) [7]
Усё работает. ;)
Теперь окно создаётся во весь экран.

procedure TForm1.Button1Click(Sender: TObject); Var R: TRect; begin SetRect(R, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)); AdjustWindowRect(R, GetWindowLong(Handle, GWL_STYLE), False); MoveWindow(Handle, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top , True); end;

DVM (2009-12-17 21:56:00) [8]

> Нажимаю кнопку и ничего не менятся. Что не так?

Эта функция вычисляет требуемые размеры прямоугольника, но не меняет окно.

Б (2009-12-17 21:49:00) [9]
Решил протестить на VCL окне.
Нажимаю кнопку и ничего не менятся. Что не так?

procedure TForm1.Button1Click(Sender: TObject); Var R: TRect; begin SetRect(R, 0, 0, 300, 250); AdjustWindowRect(R, GetWindowLong(Handle, GWL_STYLE), False); // False говорит, что окно без меню. end; procedure TForm1.Timer1Timer(Sender: TObject); begin Caption:= IntToStr(ClientWidth) + ' : ' + IntToStr(ClientHeight); end;

Б (2009-12-17 21:47:00) [10]
Вроде бы нашёл эту функцию - AdjustWindowRect.

DVM (2009-12-17 21:46:00) [11]

> Может Вы перепутали с WM_NCCALCSIZE?

Да, перепутал. Вот видишь сам нашел.

Б (2009-12-17 21:18:00) [12]
Может Вы перепутали с WM_NCCALCSIZE?

Б (2009-12-17 21:12:00) [13]

> WM_NCCalcRect

Delphi говорит неизвезвестный индификатор.

DVM (2009-12-17 20:37:00) [14]

> Б (17.12.09 19:52)

WM_NCCalcRect

Eraser (2009-12-17 20:23:00) [15]
> [0] Б (17.12.09 19:52)

можно глянуть как сделано в VCL и реализовать так же.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »