Клонировать форму

← →
Ш-К (2004-06-02 15:08) [0]

В рантайм есть форма со своими заданными свойствами, компонентами и заданными свойствами компонент.
Как, в рантайм же, создать "копию" формы?

← →
Анонимщик © (2004-06-02 16:39) [1]

Смотри хелп на слово VMT.

← →
WebErr © (2004-06-02 17:37) [2]

Forma := Forma.Create(Application);

← →
Gero © (2004-06-02 17:45) [3]

> Forma := Forma.Create(Application);

Бред.

← →
WebErr © (2004-06-02 18:09) [4]

Описался
Form666 = TForm666.Create(Application);

← →
vvvaaa (2004-06-02 19:08) [5]

TSubForm.Create(self);
или
TSubForm.Create(Application);
Не забудь сохранить её хендл, если будеш программно обращаться к ней далее.

← →
Fay © (2004-06-02 19:21) [6]

А почему именно хендл? Почему бы не Caption или Tag?

← →
Семен Сорокин © (2004-06-02 19:23) [7]

проще ссылку :))

← →
vvvaaa (2004-06-02 19:24) [8]

>Fay ©
Интересно узнать и как же ты собираешся обратиться к форме по Caption???

← →
Семен Сорокин © (2004-06-02 19:30) [9]

vvvaaa (02.06.04 19:24) [8]
>Fay ©
Интересно узнать и как же ты собираешся обратиться к форме по Caption???
FindWindow
Screen.Forms
выбирай любой

← →
Fay © (2004-06-02 19:52) [10]

2vvvaaa (02.06.04 19:24) [8]
Интересно узнать и как же ты собираешся обратиться к форме по Handle???

← →
Ш-К (2004-06-03 09:14) [11]

Прошу прощения, уточняю вопрос.
Форма в дезайнтайм не создаётся. Компоненты тоже создаются в рантайм. Эмуляция IDE and Object Innspector. Хотелось бы эти формы воссоздавать.

← →
Black Krok (2004-06-03 10:12) [12]

Записать форму в поток и восстановить ее оттуда
Примерно так:
var Stream : TMemoryStream; Reader : TReader; begin Stream := nil; Reader := nil; try Stream := TMemoryStream.Create; Stream.SaveComponents(Self); Stream.Position := 0; // собственно клонирование Second_Form.SetDesigning(true,true); Reader := TReader.Create(Stream,4096); Reader.ReadComponents(Second_Form); finally Stream.Free; Reader.Free; end; end;

Текст набран по памяти и использовался для клонирования панелей в рамках одного окна. Там была проблема с одинаковыми именами. Отсюда использование TReader(у него перекрывалось событие). Может поможет и просто вызов Stream.ReadComponent()

← →
Black Krok (2004-06-03 10:14) [13]

Предполагается, что Second_Form уже есть и правильного типа :)))

← →
Ш-К (2004-06-03 12:30) [14]

Да. Потоки - то что надо

Клонировать форму Найти похожие ветки