Как это сделать программно (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;

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