Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Проблема с параметрами GetMessage 


AFROLOV   (2002-03-25 12:45) [0]

Уже не знаю что делать, вроде все перепробовал. Все равно выдается сообщение при компиляции "Types of formal and var parametrs must be identical". Похоже ему HWND не нравится.


var
tmpHwnd:HWND;
PRemMsgSt:^tagMSG;
..
begin
..
tmpHwnd:=ShareInf^.WND_OF_INTEREST;
getMem(PRemMsgSt,sizeOf(tagMsg));
GetMessage(PRemMsgSt,tmpHwnd,WM_KEYDOWN,WM_KEYDOWN);//Тут при компиляции выдается сообщение
freeMem(PRemMsgSt,sizeOf(tagMsg));
..
end;

Выдержка из Help"а Delphi
BOOL GetMessage(
LPMSG lpMsg,// address of structure with message
HWND hWnd,// handle of window
UINT wMsgFilterMin,// first message
UINT wMsgFilterMax// last message
);

Parameters
lpMsg
Points to an MSG structure that receives message information from the thread"s message queue.
hWnd
Identifies the window whose messages are to be retrieved. One value has a special meaning:
Value Meaning
NULL GetMessage retrieves messages for any window that belongs to the calling thread and thread messages posted to the calling thread via PostThreadMessage.
wMsgFilterMin
Specifies the integer value of the lowest message value to be retrieved.
wMsgFilterMax
Specifies the integer value of the highest message value to be retrieved.



deleon   (2002-03-25 12:48) [1]

Лень смотреть, но hint в Delphi какой тип показывает? Того типа переменную и объявляй! Похоже там обычный Integer должен быть :)



Виктор Щербаков   (2002-03-25 12:49) [2]

Если это к вопросу http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1017044935&n=5

то

Msg: tagMSG;
..
begin
..
GetMessage(Msg, 0, 0, 0);



Alx2   (2002-03-25 12:51) [3]

Вот так попробуй:
GetMessage(PRemMsgSt^,tmpHwnd,WM_KEYDOWN,WM_KEYDOWN);//




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
6-9591            OGR                   2002-01-23 11:41  2002.04.04  
Как подавить сообщения об ошибках в TWebBrowser?


1-9461            Марк                  2002-03-25 11:01  2002.04.04  
Как просмотреть все рисунки в файле иконки?


1-9433            ppcat                 2002-03-24 19:36  2002.04.04  
Delphi и ZIP архивы


1-9484            snoup                 2002-03-25 19:57  2002.04.04  
Как с помощью таймера и лебела сделать сикундомер?


3-9400            koks                  2002-03-04 17:51  2002.04.04  
TQuery.Filter