Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.01 c
3-84886
Страждущий-ищущий
2002-08-06 08:50
2002.08.26
SELECT к датасету.


7-85272
ZavDim
2002-06-12 17:16
2002.08.26
Ресурсы окошек


3-84916
Виталий Панасенко
2002-08-06 17:45
2002.08.26
Как победить исключение


1-84977
minva
2002-08-15 16:59
2002.08.26
Компоненты с исходным кодом


1-85023
Reticent
2002-08-16 13:47
2002.08.26
простенький вопросик, но я щас торможу и прошу о помощи