Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как это сделать программно (dock) [D6, Win2k]

A7exander © (2002-08-16 10:49:00)
Простенький пример:

создал форму 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:00) [1]
Используй ManualDock.

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

Наверх

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