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

← →
zorik © (2004-07-23 16:30) [0]

Как передать в процедуру конкретную форму, чтоб ее можно было динамически создать в теле процедуры?
Спасибо.

← →
Ega23 © (2004-07-23 16:36) [1]

procedure Тра-ля-ля(Obj:TObj);
begin
if Obj<>nil then Obj:=TObj.Create;
end;

← →
Sandman25 © (2004-07-23 16:38) [2]

TApplication.CreateForm

← →
Reindeer Moss Eater © (2004-07-23 16:40) [3]

procedure CreateMyForm(AFormClass : TFormClass);
begin
with AFormClass.Create(nil) do
Show;
end;

CreateMyForm(TForm1);

← →
VMcL © (2004-07-23 16:44) [4]

>>Ega23 © (23.07.04 16:36) [1]

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

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

← →
zorik © (2004-07-23 16:50) [5]

Спасибо за TFormClass, а я использовал TForm и создавалась пустая форма. Сейчас все работает.

← →
Ega23 © (2004-07-23 16:52) [6]

а я использовал TForm и создавалась пустая форма

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

← →
Reindeer Moss Eater © (2004-07-23 16:53) [7]

Любая твоя форма это НАСЛЕДНИК от TForm.

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

2 Reindeer Moss Eater ©

type
TForm1 = class(TForm)

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

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

"Оттуда"
/С.С.Горбунков/

"Оттуда"

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