Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

Как это сделать программно (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
14-85229
Hawk2
2002-07-31 19:57
2002.08.26
Вот это облом с EhLib.


14-85230
VL
2002-07-29 17:38
2002.08.26
Господа. Не подскажете где взять компоненты, строящие графики


14-85251
Fellomona
2002-07-31 14:43
2002.08.26
3D шахматы


14-85206
Nox
2002-07-30 22:39
2002.08.26
<<<Война и мир>>>


14-85253
AL2002
2002-08-02 13:36
2002.08.26
ОС хватает, виндусов много, как программировать?..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский