Hallo Delphianer,
mein Problem:
Schritt 1: erzeuge in Form1.create insgesamt 81 Labels während der Laufzeit. Alles i. O.
Schritt 2: Lesen Daten von einer Datei in ein Integer-Array[1..9,1..9] ein. Alles i. O.
Schritt 3: Will nun (falls F[i,k]>0) ein Label ansprechen und beschriften. Wie kann ich dieses Label ansprechen? Der Compiler kennt ja dieses Label nicht, da es zur Entwurfszeit nicht existiert.
Allen Labels ist die gleiche onClick-prozedur zugeordnet. Diese soll ebenfalls das Label beschriften. Die Labels könnten über ihren Namen angesprochen werden.
Habe Hilfen und Tutorials tonnenweise gelesen, aber dort läßt man sich nur zum Generieren der Komponenten aus und nicht wie ich von einer anderen prozedur der gleichen Form diese dann anspreche/aufrufen.
Für nützliche Hinweise bin ich dankbar.
Im Schritt 1 klappt lediglich die Farbzuordnung nicht.
Delphi-Quellcode:
.
.
.
i:=1;
while i<= 9 do
begin
j:=1;
while j<= 9 do
begin
n_lbl:='Feld'+IntToStr(j)+IntToStr(i);
begin
ALabel:=TLabel.Create(Self);
ALabel.Name := n_lbl;
ALabel.Left := left_M+(i-1)*sw-5;
ALabel.Top := top_m+(j-1)*sw-5;
ALabel.height:=sw-12;
ALabel.width:=sw-12;
ALabel.Transparent:=false;
ALabel.color:=clSilver;
ALabel.visible:=true;
ALabel.Caption:=n_lbl;
ALabel.Parent := GroupBox1;
ALabel.OnClick:=PanelClick;
Inc(j);
end;
end;
Inc(i);
end;
MfG
Kurt Wallander