Ist wohl doch nicht so einfach wie gedacht, was ? Deshalb verschiebe ich das ja laufend und mache es nicht fertig.
Letzter Stan der Dinge :
Delphi-Quellcode:
procedure TfrmKey.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var c : TComponent; // <--- Überbleibsel
aLabel : TControl;
begin
if Key = 13 then begin
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];
showmessage ('LÄLÄÖLÖÄ');
TLabel(aLabel).OnClick(aLabel); //<----- Zugriffsverletzung
end;
end;
EnterTab(Sender,Key,Shift,[],[],true);
end;
Das c ist übrigens nur eine Hilfsvariable, die hier nicht gebraucht wird. Beim OnClick kracht es. Sehe nicht warum, aber es kracht.
