Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

Проблема с параметрами 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);//



Страницы: 1 вся ветка

Текущий архив: 2002.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-9356
VL
2002-03-07 12:53
2002.04.04
Помогите перености между базами *.GDB blob-поле...


1-9520
snoup
2002-03-23 09:14
2002.04.04
Кидаю на форму TEdit и кнопку в OnButtonClick пишу: Shellexecute(handle,nil, edit1.text ,nil,nil,SW_SHow);


3-9365
amamed_3071
2002-03-09 09:40
2002.04.04
AdoQuery Time Out expected Error


3-9369
Dil
2002-03-10 22:02
2002.04.04
Вопрос про редактирование в БД Access.


14-9612
vopros
2002-02-21 15:55
2002.04.04
Кто посоветует как провести день рождения в Питере, либо если от места не зависит ваще как провести?