TMessage, welche Taste wurde gedrückt?

[tofse]

Hallo,

wie bekomme ich bei

Code:

procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;

heraus, welche Taste gedrückt wurde?
In

Code:

var m : TMessage

muss doch irgendwo, irgendwie die Taste als Code enthalten sein

Danke
Gruss
Christof

[Bernhard Geyer]

Microsoft erklärt in der MSDN wo welche Infos zu finden sind:

[tofse]

Hallo,
danke!
Da steht:

Zitat:

wParam
The low-order word specifies the character code that corresponds to the key the user pressed.

Also verwende ich: m.WParamLo

Außerdem habe ich diese Funktion gefunden:

Code:

function GetCharFromVKey(vkey: Word): string;
var
  keystate: TKeyboardState;
  retcode: Integer;
begin
  Win32Check(GetKeyboardState(keystate));
  SetLength(Result, 2);
  retcode := ToAscii(vkey,
    MapVirtualKey(vkey, 0),
    keystate, @Result[1],
    0);
  case retcode of
    0: Result := ''; // no character
    1: SetLength(Result, 1);
    2:;
    else
      Result := ''; // retcode < 0 indicates a dead key
  end;
end;

Verwende ich nun

Code:

GetCharFromVKey(m.WParamLo)

dann funktioniert es bei den Zahlen, aber wenn ich eine Buchstabentaste drücke, dann kommt meistens nichts zurück

Gruss
Christof

[Morphie]

Wozu GetCharFromVKey?

Code:

procedure TForm1.WmMenuChar(var m: TMessage);
var
  s: string;
begin
  s := chr(m.WParamLo);
  ShowMessage(s);
end;

[tofse]

Danke

Zitat von morphie:

wozu getcharfromvkey?

Code:

procedure tform1.wmmenuchar(var m: Tmessage);
var
  s: String;
begin
  s := chr(m.wparamlo);
  showmessage(s);
end;

[uligerhardt]

Zitat von tofse:

Danke

Zitat von morphie:

wozu getcharfromvkey?

Code:

procedure tform1.wmmenuchar(var m: Tmessage);
var
  s: String;
begin
  s := chr(m.wparamlo);
  showmessage(s);
end;

Obwohl mein erster Post irgendwie keinen interessiert hat, probier ich's nochmal. Die VCL bietet ja vorgefertigte "Message-Cracker". Damit kann man mit sinnvollen Namen und ohne Casten auf die Message-Parameter zugreifen:

Delphi-Quellcode:

procedure TForm1.WMMenuChar(var m: TWMMenuChar);
var
  s: string;
begin
  s := m.User;
  ShowMessage(s);
end;

(OK, "User" ist jetzt kein soooo sinnvoller Name... )

[uligerhardt]

Zitat von tofse:

Code:

procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;

Nimm doch TWMMenuChar statt TMessage . Dann brauchst du weniger Casts.