Как автоматически конвертнуть, например, tagMSG в TWMChar

← →
district (2003-02-22 16:28) [0]

или ручками ?

← →
MBo © (2003-02-22 16:36) [1]

TWMChar(Message)

← →
district (2003-02-22 16:58) [2]

var
m: TWMChar;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if msg.message = WM_Char
then
begin
m:=TWMChar(msg);
...
/// /// не работает

А TranslateMessage(msg) для чего, никак не врублюсь ?

← →
MBo © (2003-02-22 17:22) [3]

Да, неправ я был. В tagMsg еще дескриптор окна есть. Можно так:

if msg.message=wm_char then begin
m:=TWMChar(PMessage(@msg.message)^);
Caption:=IntToStr(m.CharCode);
end;

TranslateMessage переводит некоторые комбинации сообщений в другие сообщения, например, пара WM_KEYDOWN+WM_KEYUP дает WM_CHAR

← →
district (2003-02-22 17:25) [4]

В очередной раз спасибо

>> TranslateMessage переводит некоторые комбинации сообщений в другие
>> сообщения, например, пара WM_KEYDOWN+WM_KEYUP дает WM_CHAR
Вроде и аглицкий знаю, а не как не доходило (-:|~

← →
district (2003-02-22 17:46) [5]

А alt на сообщение ловится ?

← →
district (2003-02-22 17:52) [6]

все, понял (:

Как автоматически конвертнуть, например, tagMSG в TWMChar Найти похожие ветки