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

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

Где ж его взять? (resource not found) [D5, Win2k]

VladP ©   (2002-08-31 19:50:00) 

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

Принялся экспериментировать с собственными компонентами и наткнулся на проблему.
Создается проект с главной формой. К проекту подключается модуль 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.
================================================================


---

VladP   (2002-09-01 08:04:00) [1]

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

---

Ученик   (2002-08-31 23:19:00) [2]

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

---

VladP   (2002-08-31 21:22:00) [3]

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

---

Ученик   (2002-08-31 20:55:00) [4]

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

---

Наверх