Nemmeste og rigtigste metode til at fange tastesekvens

OnKeyDown eventen sammen med GetKeyState kan normalt bruges

Jo men den er vel ikke global?
Jeg skal fange tastkombinationen ligegyldigt hvor jeg er i applikationen.

Har du flere forme ?

Du får begge muligheder. Hvis du kun har en form så kan du benytte FormKeyDown muligheden, husk at sætte formens KeyPreview=true. Hvis du har flere forme så brug MyOnMessage muligheden.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MyOnMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
{    if (Key=83) then
      if (GetKeyState(VK_CONTROL)<0) and (GetKeyState(VK_MENU)<0) then
        showmessage('CTRL+ALT+S');}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.OnMessage:=MyOnMessage;
end;

procedure TForm1.MyOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
    if Msg.message=WM_KEYDOWN then
  begin
      if (Msg.wParam=83) and (GetKeyState(VK_CONTROL)<0) and (GetKeyState(VK_MENU)<0) then
        begin
            showmessage('CTRL+ALT+S');
        Handled:=true;
        end;
  end;
end;


end.

Jeg har i omegnen af 15 formularer så derfor skal det helst være lidt universalt

Hej Hugo,

Kroning har svaret på dit spørgsmål!  jf. dit #2 og løsningen virker ligegyldigt hvor mange forms du har.

Hvis dit spm. skulle handle om at ctrl+alt+s  skulle aktivere et af dine vinduer, ligegyldig hvilken applikation der er aktiv, skal du nok stille et nyt spørgsmål.

kroning> jeg kan kun sige tak og smid et svar :-)  det virker perfekt så vidt jeg har kunnet teste.

Funktionen skal bruges til at vise et 'Secrets' menupunkt for brugeren på min hovedmenu og det skal kunne aktiveres overalt i programmet.

Og svar