Labels erstellen

[inherited]

Einfach mal lesen, bevor man antwortet
Am betsen die Section erstmal in eine Stringlist laden, dann for i := 0 to Stringlist.Count-1 den Labels die Caption stringlist[i] zuweisen

[Privateer3000]

Zitat von Mavarik:

  DeinProc((Sender as TLabel).Caption);

Danke Mavarik und auch an die anderen.
Was du oben beschrieben hast, nehm ich an dass dies
das onclick Ereignis ist. Wie empfängt die procedure
dieses,bzw. wie wird es dort ausgewertet?
die wichtigste zeile wäre in meinem Falle:

Delphi-Quellcode:

procedure TForm2.labelclick(Sender:TObject);
main.name.Text:= ???

anstelle der fragezeichen müsste dort der name
des geklickten Labels übergeben werden.

[Mavarik]

Hää ich verstehe Deine Frage nicht...

Delphi-Quellcode:

procedure TForm2.labelclick(Sender:TObject);
begin
  Whatever := (Sender as TLabel).Caption; // Oder auch .Name 
end;

Frank

[Privateer3000]

Danke, manchmal sieht mn den Wald hinter den umgefallenen Bäumen nicht...