Скачать: CL | DM;

Как автоматически конвертнуть, например, 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c