Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.036 c
6-17227
Kostya
2002-12-31 07:37
2003.03.06
Запрет запуска IEExplorer


1-17052
Yakudza
2003-02-24 20:33
2003.03.06
Русские символы


1-17189
Vadim840
2003-02-24 12:46
2003.03.06
Поиск файла


3-16963
Ruf
2003-02-17 11:46
2003.03.06
обновления


1-17068
ALEXEY_URAL
2003-02-25 13:32
2003.03.06
Импорт отчета из QuickReport в Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский