Hallo Nico,
wenn du die Tasten im gesamten Formular abfangen möchtest, bevor sie einem Control übergeben werden, dann könntest du das Ereignis
TForm.OnShortCut verwenden:
Delphi-Quellcode:
// uses Menus
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
Key : TShortCut;
begin
Key := ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
case Key of
Ord('A'):
begin
Self.Caption := 'lowercase a';
Handled := True;
end;
scShift or Ord('A'):
begin
Self.Caption := 'uppercase a';
Handled := True;
end;
end;
end;
Du solltest allerdings einen guten Grund haben, die Eingabe von Buchstaben in Memo- und Editfeldern zu verhindern.
Gruß Hawkeye