Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создать форму

zorik © (2004-07-23 16:30:00)
Как передать в процедуру конкретную форму, чтоб ее можно было динамически создать в теле процедуры?
Спасибо.

Ega23 (2004-07-23 17:19:00) [1]
"Оттуда"

"Девочка с севера"??????? :о)

Reindeer Moss Eater (2004-07-23 17:15:00) [2]
"Оттуда"
/С.С.Горбунков/

Ega23 (2004-07-23 17:06:00) [3]
2 Reindeer Moss Eater ©

type
TForm1 = class(TForm)

Я это имел ввиду.

offtop: давно хотел спросить: окуда такой необычный ник?

Reindeer Moss Eater (2004-07-23 16:53:00) [4]
Любая твоя форма это НАСЛЕДНИК от TForm.

не наследник, а именно TForm

Ega23 (2004-07-23 16:52:00) [5]
а я использовал TForm и создавалась пустая форма

Она и должна была пустой создаваться. Любая твоя форма это НАСЛЕДНИК от TForm.

zorik (2004-07-23 16:50:00) [6]
Спасибо за TFormClass, а я использовал TForm и создавалась пустая форма. Сейчас все работает.

VMcL (2004-07-23 16:44:00) [7]
>>Ega23 © (23.07.04 16:36) [1]

procedure Тра-ля-ля( varObj:TObj);

а вообще см. [2]

Reindeer Moss Eater (2004-07-23 16:40:00) [8]
procedure CreateMyForm(AFormClass : TFormClass);
begin
with AFormClass.Create(nil) do
Show;
end;

CreateMyForm(TForm1);

Sandman25 (2004-07-23 16:38:00) [9]
TApplication.CreateForm

Ega23 (2004-07-23 16:36:00) [10]
procedure Тра-ля-ля(Obj:TObj);
begin
if Obj<>nil then Obj:=TObj.Create;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »