ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание формы
4 сообщений из 4, страница 1 из 1
Создание формы
    #32245544
Streammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Streammer
Гость
Поясните мне пожалуйста, в чем разница между двумя кусками кода:

1) Application.CreateForm(TForm2, Form2);

2) Form2 := TForm2.Create(Application);

У меня Form1 - MDIForm, а все остальные (в т.ч. и Form2) - MDIChild.
...
Рейтинг: 0 / 0
24.08.2003, 10:53
| Ответить | Цитировать | Написать  
Создание формы
    #32245560
AndrewYr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrewYr
Участник
Ни в чем. В обоих случаях создается экземляр класса TForm2 (то есть объект), и ссылка на него сохраняется в переменной Form2.

В файле с расширением DPR находится модуль инициализирующий приложение.
В этом модуле генерируется код Application.CreateForm(TForm2, Form2) в тот момент, когда вы добавляете форму в проект.

Если у вас MDI-приложение, и дочерние формы должны возникать по какому-то событию, то удалите код Application.CreateForm(TForm2, Form2), и в обработчике события напишите Form2 := TForm2.Create(Application);
...
Рейтинг: 0 / 0
24.08.2003, 12:38
| Ответить | Цитировать | Написать  
Создание формы
    #32245572
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SiDen
Участник
В этом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(Self);
  except
    TComponent(Reference) := nil;
    raise;
  end;
  if (FMainForm = nil) and (Instance is TForm) then
  begin
    TForm(Instance).HandleNeeded;
    FMainForm := TForm(Instance);
  end;
end;
...
Рейтинг: 0 / 0
24.08.2003, 14:17
| Ответить | Цитировать | Написать  
Создание формы
    #32246915
DenDer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DenDer
Участник
Одинаково и то и другое (кто и как привык).
Я, допустим, пользуюсь Application.createForm........
Где мне нужно, там и создаю новую форму - всё работает
...
Рейтинг: 0 / 0
26.08.2003, 03:20
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]