Namen der virtuellen Tastencodes

[xaromz]

Hallo,

hast Du schon mal den ErrorCode der Funktion ausgelesen? Der ist nämlich genau dazu da, um Fehler einzugrenzen .

[Edit]
Ich habe gerade bemerkt, LastError ist einfach Null. Das Problem ist, das KeyDown-Event liefert keinen gültigen KeyCode für diese Funktion. So funktioniert's:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
  protected
    procedure DoKeyDown(var Msg: TWMKeyDown); message WM_KEYDOWN;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoKeyDown(var Msg: TWMKeyDown);
var
  Buffer: array [0..50] of Char;
begin
  if GetKeyNameText(Msg.KeyData, @Buffer[0], 50) > 0 then
    Label1.Caption := Buffer;
end;

Blöderweise mag mich allerdings die Alt-Taste nicht. Die Methode wird gar nicht ausgeführt. Das liegt daran, dass Alt das System-Menü aktiviert (drück danach mal "Nach Unten").
[/Edit]

Gruß
xaromz