Hallo,
Sender = Form, denn auslösendes Ereignis = FormKeyDown
ActiveControl = Panel, denn Pfeiltasten oder Tab setzen das jeweilige Panel activ
ActiveControl.Controls[0] = Label, denn das Label ist einziges Control, also Index = 0
@Hansa: damit Dein Eichhörnchen nicht verhungert :Sciurus:
Delphi-Quellcode:
//...
var aLabel : TControl;
//...
if Key = 13 then
if (assigned(ActiveControl)) and
(ActiveControl.ClassType = TPanel) then
begin
showmessage('Label: '+ActiveControl.Controls[0].Name+#13#10+
'auf Panel: '+ActiveControl.Name+#13#10+
'Sender ist Form: '+TControl(Sender).Name);
aLabel := ActiveControl.Controls[0];//<----------
TLabel(aLabel).OnClick(aLabel);
end;