Kompomente "klaut" Pfeiltasten, Keyboard-Hook ?

[hoika]

Hallo #,

ich habe hier eine Komponente (kein Src-Code).
Packe ich die auf das Form und gebe ihr den Focus,
bekommt mein Form keine Pfeiltasten-Nachrichten mehr,
auch bei KeyPreview=True.

Sieht so aus, als setzt die einen Hook.

Bin ich schlau, setze auch einen, aber
die Methode MoveLeft wird jetzt 3mal aufgerufen.

Wie kann ich das verhindern ?

Danke


Heiko

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ieview, imageenview, hyieutils,   hyiedefs,
  imageenproc;

type
  TForm3 = class(TForm)
    ImageEnView1: TImageEnView;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private-Deklarationen }
    procedure MoveLeft;
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;
  KBHook: HHook;
  function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall;

implementation

{$R *.dfm}

function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall;
var
  Key: Word;
begin
  case WordParam of
    VK_LEFT:
      begin
        Key:= WordParam;
        LongParam:= 1;
        Form3.MoveLeft;
        Result:= 0;
        Exit;
      end;
  end;

  Result:= CallNextHookEx(KBHook, Code, WordParam, LongParam);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  inherited ;

  KBHook:= SetWindowsHookEx(WH_KEYBOARD,
    @KeyboardHookProc, HInstance, GetCurrentThreadId());
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  UnHookWindowsHookEx(KBHook) ;
end;

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_ESCAPE then
  begin
    Close;
  end;
  if Key=VK_LEFT then
  begin
    ShowMessage('Left');
    Key:= 0;
  end;
  if Key=VK_RIGHT then
  begin
    ShowMessage('Right');
  end;
end;

procedure TForm3.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key=VK_ESCAPE then
  begin
    Close;
  end;
  if Key=VK_LEFT then
  begin
    ShowMessage('Left');
    Key:= 0;
  end;
  if Key=VK_RIGHT then
  begin
    ShowMessage('Right');
  end;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
  ImageEnView1.SetFocus;
end;

procedure TForm3.MoveLeft;
begin
  ShowMessage('MoveLeft');
end;  { MoveLeft }

end.