Gibt es eine Hotkey-Komponente?

[Dee]

Hallo Leute,

gibt es eine Hotkey-Komponente wie in Delphi 7 (THotkey)? Ich habe mich schon umgesehen und nach Lazarus-Komponenten gesucht, aber nichts gefunden. Ich habe vor eine Option zu implementieren, die es dem Nutzer erlaubt, durch Drücken einer Tastenkombination diese zu visualisieren (z.B. STRG + SHIFT + A). Dann steht in einem Feld oder einem Label die gedrückte Kombination. Ich habe schon versucht, Code für ein Edit-Feld zu schreiben. Klappt auch ganz gut, aber eine vorhandene Komponente wäre mir lieber.

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Edit1.Clear;
 
  if (ssCtrl in Shift) then
    Edit1.Text := 'Strg';
 
  if (ssShift in Shift) then
  begin
    if (Edit1.Text <> '') then
      Edit1.Text := Edit1.Text + '+ Shift '
    else
      Edit1.Text := 'Shift'
  end;
 
  if (ssAlt in Shift) then
  begin
    if (Edit1.Text <> '') then
      Edit1.Text := Edit1.Text + '+ Alt '
    else
      Edit1.Text := 'Alt'
  end;
 
  if (Chr(Key) in ['a'..'z', 'A'..'Z']) then
  begin
    if (Edit1.Text <> '') then
      Edit1.Text := Edit1.Text + ' + ' + Chr(Key)
    else
      Edit1.Text := Chr(Key)
  end;
 
  if (Chr(Key) in ['a'..'z', 'A'..'Z']) then
    LastKey := Chr(Key)
end;

Ist nicht ganz ausgereift, reicht aber als Demo.

--Dee

[Komoluna]

Am einfachsten ist glaub ich ein TMainMenu(ein verstecktes TMenuItem darunter) zu nehmen, und dann die Hotkey Eigenschaft zu setzen.
Bei OnClick (oder so) kannste dann deinen Code ausführen...

MFG

Komoluna

[Dee]

@Komoluna: Oh, ich habe vergessen zu erwähnen, dass es ein systemweiter Hotkey sein soll. Außerdem will ich das Setzen des Hotkeys visualisieren und da würde mir dein Vorschlag nicht helfen, aber dennoch danke.

--Dee

[LazProgger]

Hier steht, wie man in Delphi einen systemweiten Hotkey registrieren kann:

http://www.askingbox.de/tutorial/delphi ... ter-hotkey

Und im Kommentar darunter, wie es mit Lazarus geht.

Ist zwar keine Komponente, hab ich aber auch schon so in einem Lazarus-Programm systemweit zum laufen bekommen.

[Dee]

@LazProgger: Ich weiß, wie man einen systemweiten Hotkey mit Lazarus setzt, aber ich will den Tastenkürzel visualisieren. Gibt es wirklich keine passende Komponente?

--Dee

[Komoluna]

Was meinst du mit Visualisieren?

MFG

Komoluna

[Dee]

Mit Visualisieren meine ich, es so darzustellen, dass der Nutzer sieht, welche Tastenkombination gedrückt wurde (siehe obigen Code). Mein Code funktioniert in einem Edit-Feld, das auf ein KeyDown-Event reagiert. Dann wird im Edit-Feld angezeigt, welche Taste(n) gedrückt wurde(n).

--Dee

[Komoluna]

In Lazarus bei den Hotkeyproperties im Objektinspektor gibts doch sowas.
Guck doch mal, wie das da gelöst ist(Lazarus ist ja glücklicherweise OpenSource).

MFG

Komoluna