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

[uligerhardt]

Zitat von tofse:

Code:

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

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

[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... )

[tofse]

ok, funktioniert auch, habe dann diese Variante eingebaut

[SirThornberry]

Das ist aber nicht ganz das was du gefragt hast, oder? Die Message liefert dir nicht die Taste welche gedrückt wurde sondern nur das Zeichen welches daraus resultiert.
Nimmt man zum Beispiel die Zifferntasten weißt du dann nicht ob die Ziffer auf dem Nummernblock getippt wurde oder die andere Taste.

[tofse]

Das stimmt natürlich, aber eigentlich ging es mir auch nur um's Zeichen....