Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
- System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Types3D,
- FMX.Objects3D;
- type
- TForm1 = class(TForm)
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- FCubeArray: array[1..1000] of TCube;
- procedure CubeClick(Sender: TObject);
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.fmx}
- procedure TForm1.Button1Click(Sender: TObject);
- var
- I: Integer;
- begin
- for I := Low(FCubeArray) to High(FCubeArray) do
- begin
- FCubeArray[I] := TCube.Create(Self);
- // setup whatever else...
- FCubeArray[I].Name := 'Cube' + IntToStr(I);
- // and here you assign your private CubeClick method to the
- // OnClick event for each cube you create
- FCubeArray[I].OnClick := CubeClick;
- end;
- end;
- procedure TForm1.CubeClick(Sender: TObject);
- begin
- // TCube(Sender).Position.X and whatever else
- ShowMessage(TCube(Sender).Name);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement