| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

edge ©   (2004-11-01 15:21:00) 

Хочу при создании формы передать ей дополнительные параметры. делаю так:

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. В чем ошибка?

---

edge   (2004-11-01 15:28:00) [1]

> Digitman

Спасибо.

---

Pentium133   (2004-11-01 15:28:00) [2]

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

---

Digitman   (2004-11-01 15:25:00) [3]

TForm2.Create(Form1, 'ok');

---

Pentium133   (2004-11-01 15:23:00) [4]

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


---

Наверх