I´m trying to get Unicode Keypress event on Delphi.
I did try this...
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
WideCh:= WideChar(Msg.wParam);
end;
But this is still don´t working!
I did try to use the Japanese あ (12354 Unicode) code Letter... But the
Msg.wParam is getting 41090 then i did type this letter! I did try anothers
japanese letters, and all is getting higher than 41000 codes. If i did type
the letter on a TntEdit component, by example, and get it´s code using the
KeyUnicode funciton, all is fine (it returns 12354). The problem is with
Application Message i think, in the Msg.Wparam.
Have you some idea of what is the problem?
Cezar
