Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Как форме 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]

Есть

---

← →
-=XP=- ©   (2005-06-16 12:22) [4]

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.

---

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

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c