Ereignis-Name zur Laufzeit zuweisen

[Lannes]

Hallo Hansa,

immer noch mit den Panel-Labels beschäftigt?

ActiveControl könnte da helfen:

Delphi-Quellcode:

if Key = 13 then
  if (assigned(ActiveControl)) and 
     (ActiveControl.ClassType = TPanel) then
     showmessage('Label: '+ActiveControl.Controls[0].Name+#13#10+
                 ' auf Panel: '+ActiveControl.Name);