Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Вниз

MDIChild   Найти похожие ветки 

← →
Barman   (2003-03-18 09:30) [0]

Мастера, прошу у вас совета.

Есть форма MDIChild. Ставлю ей Align:= alClient и тогда форма растягивается больше, чем надо. На главной форме появляются полосы прокрутки, т.е. ее размер не соответствует желаемому... Как этого избежать?

---

← →
Игорь Шевченко   (2003-03-18 11:00) [1]

Не ставить Align:=alClient :-)

А попробовать вот так:
procedure TChildForm.FormShow(Sender: TObject);
var Rect : TRect;
begin
GetWindowRect (Application.MainForm.ClientHandle, Rect);
Height := Rect.Bottom - Rect.Top - GetSystemMetrics(SM_CXFRAME);
Width := Rect.Right - Rect.Left - GetSystemMetrics(SM_CXFRAME);
end;


---

← →
Barman   (2003-03-18 11:23) [2]

Спасибо, сейчас попробую :-)

---

← →
Barman   (2003-03-18 11:45) [3]

Большое спасибо, все получилось!

Только еще один вопрос: как сделать так, чтобы форму нельзя было таскать по экрану?

---

← →
myor   (2003-03-18 12:40) [4]

максимизировать

---

← →
Игорь Шевченко   (2003-03-18 12:43) [5]

Обрабатывать сообщение WM_NCHITTEST, возвращая HTCLIENT или HTTRANSPARENT или HTERROR

---

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

Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c