Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.17;
Скачать: CL | DM;

Вниз

Открыть новую форму, полностью переписав её   Найти похожие ветки 

 
Kuzmi4   (2009-11-28 10:19) [0]

Подскажите, как можно реализовать открытие Form2, но не методом Form2.Show, а чтобы форма как бы по-новому пересоздавалась. Т.е. на первой форме я нажимаю кнопку и открывает Form2 со всеми размещенными на ней компонентами (не пустая, заметьте). Потом я там что-то поделал, нажимаю на ней кнопку закрытия и она уничтожается. Затем с первой формы могу вызвать её опять по-новому. Как это сделать?
Спасибо.


 
Ухарь   (2009-11-28 12:19) [1]

Создание:
Form2:=TForm2.Create(Self);
уничтожение:
Form2.Free;


 
0x00FF00   (2009-11-28 12:27) [2]

Скажем, заранее, ещё на этапе конструирования, создать на форме ВСЕ компоненты, которые могут ей понадобиться, и сделать их скрытыми. Потом организовать в Form2 массив из ссылок на эти компоненты. А затем перекрыть обработчик создания формы, так чтобы вызывающий передавал в него набор битовых масок (обычных чисел), где М-тый бит будет означать показ/скрытие того компонента, ссылка на который содержится в М-том элементе массива.


 
Юрий Зотов ©   (2009-11-29 01:19) [3]

> я там что-то поделал, нажимаю на ней кнопку закрытия и она
> уничтожается.


OnClose: Action := caFree

> Затем с первой формы могу вызвать её опять по-новому.
> Как это сделать?


TForm2.Create(...).Show;

> 0x00FF00   (28.11.09 12:27) [2]

Это шутка?


 
Германн ©   (2009-11-29 01:31) [4]


>
> > 0x00FF00   (28.11.09 12:27) [2]
>
> Это шутка?
>

Скорее попытка предложить решение задачи Z. :)


 
0x00FF00   (2009-11-29 11:03) [5]


> а чтобы форма как бы по-новому пересоздавалась

> размещенными на ней компонентами (не пустая, заметьте)

> вызвать её опять по-новому


— сбило с панталыку...
Как обычно, чукча не читатель =)
В следующий раз таки перечитаю прежде чем отвечать.



Страницы: 1 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.014 c
15-1258234144
Kerk
2009-11-15 00:29
2010.01.17
Посоветуйте какую-нибудь хорошую фантастику


15-1258023746
stas
2009-11-12 14:02
2010.01.17
Альтернатива TWebBrowser


2-1259492226
Егорка
2009-11-29 13:57
2010.01.17
эмуляция TreeView


2-1259313490
Molchanov
2009-11-27 12:18
2010.01.17
Application.Title := Const


2-1258717465
Andrewtitoff
2009-11-20 14:44
2010.01.17
Что не так?