ich habe das jetzt etwas umgebaut und es funktioniert auch wie gewünscht. Aber eine letzte Frage noch:
wozu die die for-Schleife ?
Delphi-Quellcode:
procedure TForm1.PanelClick(Sender: TObject);
var i : integer;
TempCaption : string;
begin
If Sender Is TLabel Then
TempCaption := TLabel(Sender).Caption;
If Sender Is TPanel Then
With Sender As TPanel Do
for i := 0 to pred(ControlCount) do
If Controls[i] is TLabel then
TempCaption := TLabel(Controls[i]).Caption;
Memo1.Lines.Add (TempCaption);
end;
Statt des i bräuchte ich eigentlich nur den aktuellen Wert der Caption des Labels, das auf dem Panel liegt. Bzw., was macht das ControlCount genau ?