обработка событий при динамическом создании

[Veronikaa]

Всем привет)

создаю динамически несколько форм помещаю на них по кнопке и картинке, не как не могу разобратьсо как обрабатывать события(. по кнопке нужно чтоб закрывалось, а при нажатие на изображения форма двигалась

как в этом коде

 IF (ssLeft IN Shift) Then
    Begin
     ReleaseCapture();
    SendMessage(Handle, WM_SYSCOMMAND, 61458, 0);
end;

весь код

var
  Form3: TForm3;
    var
  a: array [1..20] of TSpeedButton; // массив элементов Edit
  b: array [1..10] of TImage; //массив меток
  c: array [1..10] of TForm; //массив меток
  x: array [1..10] of TLabel; //массив меток

  i, j,z: integer;
implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);


begin

   

           for j:=1 to 5 do
  begin
    c[j]:=TForm.create(Form3);

    c[j].left:=200;
    c[j].Caption:='элемент # '+inttostr(j);
    c[j].top:=j*30;
     c[j].OnMouseDown:=  FormMouseDown   ;
    c[j].Show;


          b[j]:=TImage.create(c[j]);
    b[j].parent:=c[j];
     b[j].Align:= alClient;
     b[j].OnMouseDown:=  FormMouseDown   ;
          a[j]:=TSpeedButton.create(c[j]);
           a[j].OnMouseDown:=  Image1MouseDown;
    a[j].parent:=c[j];
     a[j].Flat:=true;
      // a[j].OnClick:= Buttonnn;
    a[j].left:=c[j].Width-60;
    a[j].Width:=30;
    a[j].Caption:='X';
    a[j].top:=5;


         end;

     end;

[Stilet]

c[j]:=TForm.create(Form3);

А что мешает описать в дизайне форму с кнопкой и картинкой, назначить в дизайне события, а после создавать экземпляры этой формы?

[Veronikaa]

Было бы не плохо, но я не знаю как((

var
f1: TForm3;
begin
f1 := TForm3.Create(Application);
try
f1.Caption:='Я ВТОРОЙ ЭКЗЕМПЛЯР КЛАССА TFORM1';
f1.ShowModal;
finally
f1.Free;
end;

Вот например вроде создает еще окно все нормально, только переключиться на главное окно, не закрыв предыдущего не получаетсо(

[Stilet]

но я не знаю как((

А как ты форму конструируешь?

не закрыв предыдущего не получаетсо(

Ога. Модально открываешь. Делай так:

var
f1: TForm3;
begin
 f1 := TForm3.Create(Application);
 f1.Caption:='Я ВТОРОЙ ЭКЗЕМПЛЯР КЛАССА TFORM1';
 f1.Show;
end;

и определи для формы3 событие закрытия

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

[Veronikaa]

Ооо спс, просто замечательно))