Где ж его взять? (resource not found)

← →
VladP (2002-08-31 19:50) [0]

Здравствуте, уважаемые мастера!

Принялся экспериментировать с собственными компонентами и наткнулся на проблему.
Создается проект с главной формой. К проекту подключается модуль myform(см.код ниже). На главную форму помещается кнопка, обработчик нажатия таков:
procedure TForm1.Button1Click(Sender: TObject);
begin
r:=TMyForm.Create(Self); {error}
r.Show();
end;

Вопрос: Почему при создании формы выдается сообщение "Resource TMyForm not found."?

С уважением, Влад.

================================================================= unit MyForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TMyForm = class(TForm) private FReferenceName:AnsiString ; protected function GetReferenceName:AnsiString ; procedure SetReferenceName(name:AnsiString ); public constructor Create(AOwner: TComponent); override; published property ReferenceName:AnsiString read GetReferenceName write SetReferenceName nodefault; end; procedure Register; implementation constructor TMyForm.Create(AOwner: TComponent); begin inherited Create(Owner); FReferenceName:="proba"; end; function TMyForm.GetReferenceName:AnsiString; begin Result:=FReferenceName; end; procedure TMyForm.SetReferenceName(name:AnsiString); begin FReferenceName:=name; end; procedure Register; begin RegisterComponents("Samples", [TMyForm]); end; end. ================================================================

← →
Ученик © (2002-08-31 20:55) [1]

Пропущено {$R *.dfm}

← →
VladP (2002-08-31 21:22) [2]

Нет файла *.dbf, потому что TMyForm создана не в IDE, а написана "ручками". Проблема в том, чтобы отобразить свою унаследованную форму с имеющимися новыми свойствами (гридом, панелью и т.д.)
К примеру если написать в обработчике OnClick
r:=TForm.Create(Self); ,
изменив декларацию r, то форма (создающаяся в rum-time) нормально отобразится. Нужно, чтобы моя форма также отображалась, а она для чего то хочет файл ресурсов.

← →
Ученик © (2002-08-31 23:19) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
with TMyForm.CreateNew(Self) do try
ShowModal
finally
Free
end
end;

← →
VladP (2002-09-01 08:04) [4]

Все гениальное просто.
Огромное спасибо!

Где ж его взять? (resource not found) Найти похожие ветки