|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.09.2008, 14:14 | #1 |
Пользователь
Регистрация: 15.12.2007
Сообщений: 44
|
Динамическое создание формы
Вобщем задание такое - есть форма и на ней кнопка. По щелчку на эту кнопку должна создаться еще одна форма с такой же кнопкой, по щелчку на которой тоже создается форма и тд и тп
Я сделал так, но чет не фурычит Код:
|
11.09.2008, 14:35 | #3 |
Пользователь
Регистрация: 15.12.2007
Сообщений: 44
|
Спасибо за помощь, я затупил
А еще вопрос - новые формы появляеются внутри первой формы. Что нужно указать в Owner чтобы форма была отдельно? Последний раз редактировалось Rifler; 11.09.2008 в 14:39. |
11.09.2008, 14:39 | #4 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Код:
|
11.09.2008, 14:51 | #5 |
Пользователь
Регистрация: 15.12.2007
Сообщений: 44
|
Пишет Undeclared Identifier: 'CreateForm'
и можно, пожалуйста, пояснения к коду |
11.09.2008, 15:03 | #6 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Добавь в type ....
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure CreateForm; А пояснять вроде нечего. frm:=TForm.Create(nil); //создаем свободную форму frm.Left:=Random(800);//Это чтобы формы видны были, иначе будут одна под другой frm.Top:=200; btn:=TButton.Create(frm);//создали кнопку btn.Left:=100; btn.Top:=100; btn.Parent:=frm;//Родитель - наша форма btn.Caption:='Кнопка'; btn.OnClick:= Button1.OnClick;//Событие при клике как и у Button1, т.е. выполнить эту процедуру еще раз. frm.ShowModal; Да, потом в конце нужно "грохнуть" все созданные формы, чтобы в памяти не висели. Например, так Код:
|
11.09.2008, 20:50 | #7 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
frm.Parent:=nil;
//Parent свойство ответственое за показ(место отображения) //Owner (то что указываем в Create) свойсто ответственное за время жизни (определяет когда компонент будет удален без нашего участия).
программа — запись алгоритма на языке понятном транслятору
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
динамическое создание компонентов | DOLBY | Компоненты Delphi | 10 | 17.10.2010 14:03 |
Динамическое создание объекта | ANGa | Помощь студентам | 3 | 10.04.2008 18:14 |
Динамическое создание объекта | Fruit | Общие вопросы Delphi | 5 | 24.01.2008 11:00 |
Динамическое создание объекта | Fruit | Общие вопросы Delphi | 2 | 16.01.2008 21:18 |
Динамическое создание фрейма | s-force | Общие вопросы Delphi | 9 | 05.09.2007 16:56 |