Firemonkey welches Objekt

[ZYLAGON]

Hier mal ein Beispiel:

Delphi-Quellcode:

procedure Txxx.OnClick(Sender:TObject);
begin
  //
end;

Delphi-Quellcode:

  //Cube
  for i:=Low(Cube) to High(Cube) do
    begin
      Cube[i]:=TCube.Create(nil);
      Cube[i].Parent:=Dummy;
      Cube[i].Tag:=i;
      Cube[i].MaterialSource:=TMS_Cu;
      Cube[i].Width:=2;
      Cube[i].Height:=0.1;
      Cube[i].Depth:=2;
      Cube[i].OnClick:=OnClick;
    end;

VG
ZYL