Создание формы.

← →
edge (2004-11-01 15:21) [0]

Хочу при создании формы передать ей дополнительные параметры. делаю так:
Unit2 type TForm2 = class(TForm) procedure FormShow(Sender: TObject); private FOrder: string; public constructor Create(AOwner: TComponent; Order: string); end; constructor TForm2.Create(AOwner: TComponent; Order: string); begin inherited Create(AOwner); FOrder:= Order; end; procedure TForm2.FormShow(Sender: TObject); begin Caption:= FOrder; end; ---------------- Unit1 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Create(Form1, "ok"); end;

В строке inherited Create(AOwner) вылезает Access violation. В чем ошибка?

← →
Pentium133 © (2004-11-01 15:23) [1]

попробуй так:
constructor Create(AOwner: TComponent; Order: string); reintrodice;

← →
Digitman © (2004-11-01 15:25) [2]

TForm2.Create(Form1, "ok");

← →
edge (2004-11-01 15:28) [3]

> Digitman

Спасибо.

А ну конешноже и это тоже:
Form2:= TForm2.Create(Self, "ok");

Создание формы. Найти похожие ветки