OnKeyDown vor Editfeldern etc.

[Hawkeye219]

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