Pfeiltasten in eigener Komponente abfangen

[Neutral General]

Hi,

Ich meine Komponente müsste auf das Drücken einer Pfeiltaste reagieren können. Zumindest VK_LEFT und VK_RIGHT. Das erste Problem ist (bzw war), dass meine Komponente den Focus verliert, bei einem Tastendruck auf eine Pfeiltaste. Gelöst habe ich es jetzt so:

Delphi-Quellcode:

procedure TConsole.WMKillFocus(var Msg: TWMKillFocus);
var key: TWMKey;
begin
  SetFocus;
  if GetAsyncKeyState(VK_LEFT) < 0 then
  begin
    key.CharCode := VK_LEFT;
    WMChar(key);
  end
  else
  if GetAsyncKeyState(VK_RIGHT) < 0 then
  begin
    key.CharCode := VK_RIGHT;
    WMChar(key);
  end;
end;

Das funktioniert, ist aber imo nicht wirklich schön. Zudem habe ich ein Problem, wenn meine Komponente die einzige auf der Form sein sollte... Dann kann sie nämlich den Focus gar nicht verlieren. Allerdings erhält sie trotzdem keine Benachrichtigung über den Tastendruck einer Pfeiltaste. Weder per WM_KEYDOWN noch per WM_CHAR.

Kann man da was tricksen?

Gruß
Neutral General

[Dunkel]

Hallo!

Delphi-Quellcode:

type
  TMyClass = class
    protected
      procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  end;

{ ... }
procedure TMyClass.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  Message.Result := DLGC_WANTARROWS;
end;

... und das Control verliert den Fokus nicht mehr.

[Neutral General]

Hey danke!

Ich schätze, wenn ich Arrows wante (Denglisch ), dann bekomm ich sie auch im KeyDown oder/und WM_CHAR oder?

[Dunkel]

Zitat von Neutral General:

Hey danke!

Ich schätze, wenn ich Arrows wante (Denglisch ), dann bekomm ich sie auch im KeyDown oder/und WM_CHAR oder?

Normal schon, ja.