Wenn du die Caption eines Panels willst auf dem kein Label liegt, dann:
Delphi-Quellcode:
...
If Sender Is TPanel Then
With Sender As TPanel Do
Begin
for i := 0 to pred(ControlCount) do
If Controls[i] is TLabel then
TempCaption := TLabel(Controls[i]).Caption;
If TempCation = '' Then
TemCaption := Caption;
End;
...
p.s.: Wie kann man so lange mit Delphi arbeiten ohne Controls/ControlCount zu kennen
Ich bin erst vor ca. 1 Jahr zu Delphi gekommen
