Не могу создать обьект

[mrandrey]

Помогите что я неправильно делаю?

В Unit 1:

procedure TForm1.Button2Click(Sender: TObject);
var t:tdirsel;
begin
t:=tdirsel.Create(Owner);
t.Exemple;
t.Destroy;
end;

В unit 2:

unit Unit2;
interface
uses Forms;
type
TDirSel = class(TForm)
private
{ Private declarations }
public
Function exemple:boolean;
{ Public declarations }
end;
implementation
{ TDirSel }
function TDirSel.exemple: boolean;
begin
result:=ShowModal=0;
end;
end.

Делфи выкидует при создании ошибку @resourse dirsel not found@
ПЛЗ Помогите...

[ZhekON]

а ты заюзал Unit2 в Unit1?
вот так :
// в Unit1 вписуеш
Uses Unit2;

[pu4koff]

в Unit2 такая строчка есть: {$R *.dfm} и файл Unit2.dfm имеецо?

[mrandrey]

Uses Unit2; - это есть

в Unit2 такая строчка есть: {$R *.dfm} и файл Unit2.dfm имеецо?

Код Unit 2 я выложил полностью, ничего такого там нет, да и я не пойму зачем?

Почему Tform можно создать, а класс от него нельзя?

[pu4koff]

Сообщение от mrandrey

Uses Unit2; - это есть


Код Unit 2 я выложил полностью, ничего такого там нет, да и я не пойму зачем?

Почему Tform можно создать, а класс от него нельзя?

ну а инфа о форме, какие компоненты на ней имеюцо, откуда по твоему могут взяца?

[mrandrey]

Создай динамически класс Tform(пустой), создается без проблем скажу сразу нет, а вот если создаю класс как описан в Unit 2, не хочет, тоисть две процедуры одна работает другая нет:

procedure TForm1.Button2Click(Sender: TObject);
var t:tdirsel;
begin
t:=tdirsel.Create(Owner);
t.ShowModal;
t.Destroy;
end;

procedure TForm1.Button3Click(Sender: TObject);
var f:tform;
begin
f:=tform.Create(Owner);
f.ShowModal;
f.Destroy;
end;

[pu4koff]

пилять... создай новый проект и в Unit1 закомментируй строку: {$R *.dfm} что произошло?