TMessage, welche Taste wurde gedrückt?

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