Ошибка при запуске динамической формы

[Orchestroman]

Здравствуйте!)
Пытаюсь разобраться с динамическими формами и событиями. Вот пример создания дин. формы с 25 кнопками и соответствующей им процедурой обработки нажатия клика. форма создается и запускается при нажатии на батон. Компилится нормально, но вылетает ошибка Eresnotfound. {$R *.dfm} вроде есть. Наверняка ошибка банальна, ибо до конца не понимаю процесс присвоения событий дин. формы. Заранее спасибо за советы)
///////
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

TTestForm = class(TForm)
procedure FormCreate(Sender:TObject);
private
procedure OwnButtonClick(Sender:TObject);
end;
var
Form1: TForm1;
TestForm: TTestForm;
implementation



{$R *.dfm}
procedure TTestForm.FormCreate (Sender : TObject);
var i, j : integer;
begin
for i := 0 to 4 do
for j := 0 to 4 do
with TButton.Create (Self) do
begin
Caption := Format ('Button %d %d', [i, j]);
Top := 100 + 30 * i;
Left := 100 + 90 * j;
Width := 80;
Height := 25;
OnClick := OwnButtonClick;
Parent := Self;
end;
end;
procedure TTestForm.OwnButtonClick (Sender : TObject);
begin
ShowMessageFmt ('Íàæàòà
êíîïêà %s', [TButton (Sender).Caption]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TestForm:=TTestForm.Create(nil);
TestForm.show;

end;

end.

//////

[AlexKhol]

Дело в том ,что программа не может найти ресурсы новой формы. Попробуйте создать новую форму,и просто потом использовать ее конструктор.Вы точно также сможете создавать на ней кнопки,менять размер и тд.

Вот пример: http://delphiexpert.ru/view_lesson.php?id=42

[3D Hunter]

Решение ламерское по ссылке выше. ТС, просто создаете новую форму из репозитория делфи, обзываете ее, скажем, TNewForm. Потом, как обычно, кидаете на нее все что нужно, пишите обработчики событий для всех компонентов. Убераете секцию var с переменной этой формы (для чистоты кода). Обязательно впишите в обработчике OnClose строчку, чтобы избежать утечек памяти:

Action:=caFree;

Потом подключаете этот модуль к вашему проекту, и создаете экземпляр формы так:

with TNewForm.Create(Application) do ShowModal;

При закрытии формы она автоматически уничтожится, как и все компоненты на ней. Обязательно в конструктор передавайте Application, чтобы созданная форма была сериализована объектом Application и взята им под контроль.

[evg_m]

Решение ламерское по ссылке выше. ТС, просто создаете новую форму из репозитория делфи, обзываете ее, скажем, TNewForm.

а разве file -> New -> form не оттуда же (из репозитария) берет. только выбора не дает какую именно взять.

[Orchestroman]

спасибо большое!