ich brauche aber nicht die beschriftung sondern nur den Labelnamen an sich,
ich will je nachdem welches label als parameter an eine funktion übergeben wurde in eine memobox schreiben "label1"
wenn label2 übergeben wurde dann label2 usw
ich hab das atm so gelöst:
Delphi-Quellcode:
procedure sichtbareTage; //speichert die aktuellen sichtbaren Labels in ein Memo, für die Effekte
procedure tagsichtbar(tag: Tlabel; beschrift: String);
begin
If tag.Visible = true
Then Unit1.Form1.Memo2.Lines.Add(beschrift);
end;
begin
Unit1.Form1.Memo2.Clear;
tagsichtbar(Unit1.Form1.Label1,'Label1');
tagsichtbar(Unit1.Form1.Label2,'Label2');
tagsichtbar(Unit1.Form1.Label3,'Label3');
end;
ich übergebe der prozedur tagsichtbar also zunächst das label is auch gut so, aber die memo soll dann auch mit Label1, label2 oder so beschriftet werden
das musste ich bisher immer als extra string dazu geben.
verstehste?
mfg SPlinter
[edit=sakura] [delphi]-tags gesetzt. Mfg, sakura[/edit]