Как создать окно с фиксированными размерами клиентской части?

← →
Геннадий (2005-05-26 18:30) [0]

Вот я передаю в CreateWindowEx ширину и высоту, допустим 640 и 480, (стиль WS_OVERLAPPED or WS_SYSMENU), но получается все окно таких размеров, а надо, чтобы таких размеров была клиентская часть. Вот как в VCL я для формы задаю ClientWidth и ClientHeight вместо Width и Height...

Скажите, как такое сделать... Спасибо!

← →
Игорь Шевченко © (2005-05-26 18:33) [1]

AdjustWindowRect не поможет ?

← →
Геннадий (2005-05-26 20:14) [2]

Попробовал, но запутался... Подскажите, пожалуйста, как ей пользоваться?

← →
Геннадий (2005-05-26 22:17) [3]

Неужели никто не знает? Я читал хелп, но там не понятно - как передавать полученный RECT в функцию CreateWindow?

← →
Ученик (2005-05-26 22:34) [4]

>Геннадий (26.05.05 20:14) [2]

Пример использования

procedure TForm1.Button1Click(Sender: TObject); var TempRect: TRect; begin TempRect := Rect(0, 0, 640, 480); if AdjustWindowRect(TempRect, GetWindowLong(Handle, GWL_STYLE), False) then begin OffsetRect(TempRect, -TempRect.Left, -TempRect.Top); with TempRect do ShowMessage(Format("%d %d %d %d", [Left, Top, right, Bottom])) end end;

← →
Геннадий (2005-05-26 23:14) [5]

Работает! Спасибо!

Как создать окно с фиксированными размерами клиентской части? Найти похожие ветки