Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c