Текущий архив: 2004.11.14;
Скачать: CL | DM;
Вниз
Создание формы. Найти похожие ветки
← →
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
Спасибо.
← →
Pentium133 © (2004-11-01 15:28) [4]А ну конешноже и это тоже:
Form2:= TForm2.Create(Self, "ok");
Страницы: 1 вся ветка
Текущий архив: 2004.11.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
