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

Как это сделать программно (dock)   Найти похожие ветки 

← →
A7exander ©   (2002-08-16 10:49) [0]

Простенький пример:

создал форму Form1,
Выставил DockSite=true, UseDockManager=true

создал форму Form2
Выставил DragKind=dkDock,DragMode=dmAutomatic

на форме Form1 кнопка, по которой создается форма Form2
procedure TForm1.new1Click(Sender: TObject);
begin
Form2:=TForm2.Create(nil);
Form2.Show;
end;

Эта Form2 легко садится (при-dock-ивается) в Form1 если ее туда перетащить вручную.
---------------------------------------------------
Вопрос:
Как это-же сделать программно. Т.е. чтобы после создания Form2 она сама садилась в Form1. Что для этого нужно добавить в вышеприведенную процедуру TForm1.new1Click ?

---

← →
-peter- ©   (2002-08-16 12:10) [1]

Используй ManualDock.

procedure TForm1.new1Click(Sender: TObject);
begin
Form2:=TForm2.Create(nil);
Form2.Show;
Form2.ManualDock(Form1);
end;

---

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

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



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