Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизКак автоматически конвертнуть, например, 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]все, понял (:
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c