Forum: Programmieren allgemein
by ZYLAGON,
7. Dez 2019
Ja, CubeTag soll einfach nur eine Integer-Variable sein, um sich den Tag (also in unserem Fall einfach die Nummer) des gedrückten Cubes zu merken.
Dass Du immer den Wert '0' erhälst liegt daran, dass Du den Cubes keine Tags zugewiesen hast.
Siehe in meinem ersten Post wie ich das gemacht habe (Cube 1 bekommt Tag '1', Cube 2 bekommt Tag '2', usw.).
Mit
XK := Cube.Position.X
kommst Du an...
Forum: Programmieren allgemein
by ZYLAGON,
7. Dez 2019
Beispielsweise mit Hilfe des Sender-Objekts und der Tag-Eigenschaft:
CubeTag := TCube(Sender).Tag;
VG ZYL
Forum: Programmieren allgemein
by ZYLAGON,
7. Dez 2019
Hier mal ein Beispiel:
procedure Txxx.OnClick(Sender:TObject);
begin
//
end;
//Cube
for i:=Low(Cube) to High(Cube) do
Forum: Programmieren allgemein
by ZYLAGON,
6. Dez 2019
Du könntest die gewünschte Änderung der Kugeln über deren OnClick-Eigenschaft realisieren.
VG ZYL