.Create Objects auf Klick

[fkerber]

Hi!

Edit: Hoffe, das gilt auch für .NET. Habe grade erst gesehen, dass es Net ist. Sorry.

So sollte es gehen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('test');
end;

procedure TForm1.Button1Click(Sender: TObject);
var bilder: array [0..5] of Timage;
i:integer;
begin
for i:=0 to 5 do
 begin
   Bilder[i]:=Timage.Create(self);
   with Bilder[i] do
    begin
      parent:=Form1;
      left:=0;
      top:=0;
      width:=100;
      height:=100;
      onclick:=Button2.OnClick;
    end;
 end;
end;

Ciao Frederic