HotkeyS, NICHT Systemweit

[1234567890987654321]

Hallo,
via Actionlist kann ich einen Hotkey für mein Formular erstellen, was muss ich machen damit ich mehrere Hotkeys haben kann?
einen für zurück, einen für vor, einen...

Danke schonmal für Antworten

[1234567890987654321]

Habe es herausgefunden.
Für die Nachwelt:

Code:

procedure TForm1.Hotkeys(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
 if key=90 then if Shift=ssCtrl then MenuItem6Click(self);//strg+z
 if key=84 then if if Shift=ssCtrl then VorClick(self);   //strg+t 
end;

[1234567890987654321]

misst, doch nicht:
unit1.pas(286,26) Error: Incompatible types: got "TShiftStateEnum" expected "TShiftState"

[DeddyH]

Würdest Du bitte das Pushen unterlassen? Zu Deinem Problem:

Delphi-Quellcode:

if key=90 then 
  if Shift=[ssCtrl] then 
    MenuItem6Click(self);

[1234567890987654321]

Lösung:=
if key=90 then if (ssCtrl in Shift) then MenuItem6Click(self);//strg+z
if key=84 then if (ssCtrl in Shift) then VorClick(self); //strg+t

:-)

[DeddyH]

Das sind aber 2 paar Schuhe, Du musst Dich schon entscheiden, ob nur CTRL oder auch CTRL gedrückt sein soll.

[1234567890987654321]

Das ist ja wohl das letzte, wenn ich Schreibe dass es Funktionirt, wird dies als Pushen gewertet.
Falls du mit Push "Mist, esfunktio..." meinst, da stand mein Beritrag ja eh schon ganz oben, da bringt Pushen nix.
Aber danke trotzdem

[DeddyH]

Ich meinte die 3 Beiträge untereinander ohne Antwort dazwischen.

[SirThornberry]

Per Definition ist es aber nunmal pushen denn es ist reines Glück das zwischenzeitlich kein anderer etwas in einem anderen Thema gepostet hast. Was hätte dich dran gehindert deinen Beitrag zu bearbeiten? Wie dem auch sei, unterlasse es bitte einfach zukünftig. :)