Use something like this:
Code:
// this function is from "TntSystem.pas" fron TNT Unicode controls.
function KeyUnicode(CharCode: Word): WideChar;
var
AChar: AnsiChar;
begin
if CharCode <= Word(High(AnsiChar)) then begin
AChar := AnsiChar(CharCode);
MultiByteToWideChar(KeyboardCodePage, MB_USEGLYPHCHARS, @AChar, 1, @Result, 1);
end else
Result := WideChar(CharCode);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:= MyMessage;
end;
procedure TForm1.MyMessage(var Msg: TMsg; var Handled: Boolean);
var
WideCh: WideChar;
begin
if (Msg.message = WM_CHAR) then
begin
WideCh:= KeyUnicode(Msg.wParam);
// Use WideCh for some purpose
end;
end;
Bookmarks