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

← →
Yurazz (2005-06-16 10:36) [0]

Приветствую всех! Озадачился тут, никак не могу найти свойство у 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 10:56) [1]

f.Width
f.Height

← →
Yurazz (2005-06-16 11:31) [2]

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

← →
-=XP=- © (2005-06-16 11:55) [3]

Есть

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.

Как форме TCustomDockForm задать размеры.... Найти похожие ветки