Ich habe ein Record mit TLabels und ein paar anderen "gedönst"
Delphi-Quellcode:
var RData : array [1..6] of array [1..20] of record
LData : TLabel;
Clicked, Used : Boolean;
Points : Byte;
Index : TPoint;
end;
Nun möchte ich, dass wenn auch LData geklickt wird (LData ist im Sender), das in seinem Record das Clicked geändert wird:
(Sender as TLabel).{Sein Record}.Clicked := true;
Muss jetzt anstelle von {Sein Record} ein "Parent" rein? Dann würde aber die Form kommen, wenn mich nicht alles irrt (Zeile 8!):
Delphi-Quellcode:
{Im OnCreate}
for i := 1 to 6 do
for j := 1 to 20 do begin
RData[i][j].LData := TLabel.Create(self);
with RData[i][j] do begin
with LData do begin
Caption := '0';
Parent := FKniffel; //Hier steht die Form
case j of
1..8 : begin
ManTop := 16;
Tag := j;
end;
9..16 : ManTop := 32;
17 : ManTop := 48;
18 : ManTop := 40;
19 : ManTop := 32;
20 : ManTop := 30;
end;
Top := ManTop + j * 24;
Left := 72 + i * 32;
OnClick := LDataClick;
end;
Points := 0;
Used := false;
Clicked := false;
Index := Point(i,j);
end;
end;