| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как форме TCustomDockForm задать размеры.... [D7]

Yurazz ©   (2005-06-16 10:36:00) 

Приветствую всех! Озадачился тут, никак не могу найти свойство у TCustomDockForm, как ширина и высота... Создаю TCustomDockForm

procedure Tfmain.N12Click(Sender: TObject);
var
f: TCustomDockForm;
p: TPanel;
begin
 f:=TCustomDockForm.Create(nil);
 p:=TPanel.Create(nil);
 p.Parent:=f;
 p.Width:=200;
 p.Height:=30;
 f.Left:=200;
 f.Top:=200;
 f.Caption:='ЙЦУКЕН';
 f.Show;
end;

Все ок, только размер один и тот же.. Я уж и панельку на него кидал, может автосайз есть..

---

-=XP=-   (2005-06-16 12:22:00) [1]

p.Width:=200;
p.Height:=30;

Напишите и откомпилируйте:
p.Align := alClient; // На всякий случай
f.Width:=200;
f.Height:=30;

Кстати, зачем Вам создавать вручную HostDockSite?

Panel.DragKind := dkDock;
Panel.ManualFloat(Rect(200, 200, 400, 230));

Для управления формой, на которой плавает панель, используйте свойство Panel.HostDockSite: TWinControl. Реальный тип (если не задан Вами другой) - TCustomDockForm.

---

-=XP=-   (2005-06-16 11:55:00) [2]

Есть

---

Yurazz   (2005-06-16 11:31:00) [3]

-=XP=- ©   (16.06.05 10:56)
Нет таких свойств!!!

---

-=XP=-   (2005-06-16 10:56:00) [4]

f.Width
f.Height

---

Наверх