activecontrol.name ?

[thomas2009]

Hallo

kann jemand mir sagen, warum ich den fehler erhalte, wenn ich die Taste Enter drücke ?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = VK_RETURN then
   Caption:=Form1.activecontrol.name;
end;