Скачать: CL | DM;

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

← →
Геннадий   (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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.04 c