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

Вниз

Подмена оконной функции   Найти похожие ветки 

 
Yuri Btr ©   (2004-03-21 21:38) [0]

Ув. мастера, столкнулся с такой проблемой расширяя функциональность не моей программы - я на постороннем окне создаю контрол - класс "Button", и пытаюсь назначить ему новую оконную функцию для реагирования на оконные сообщения вот таким образом:
...
SetWindowLong(hButton,GWL_WNDPROC,Integer(@WindowProc));
...
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

Как видите я почти ничего не изменил, для контрола всё вроде бы должно быть прозрачно однако он даже перестал прорисовываться, хотя DefWindowProc вызывается...
Подскажите, где ошибка
Заранее спасибо


 
Yuri Btr ©   (2004-03-21 21:54) [1]

Cпасибо..:)
Решение нашлось

var
 Form1: TForm1;
 FNewProc:pointer;
 FOldProc:pointer;

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;

implementation
...

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := CallWindowProc(FOldProc,hWnd, uMsg, wParam, lParam);
end;

....
FNewProc:=Pointer(@WindowProc);
FOldProc:=Pointer(GetWindowLong(handle,GWL_WNDPROC));
SetWindowLong(handle,GWL_WNDPROC,Integer(@WindowProc));



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

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

Наверх




Память: 0.46 MB
Время: 0.031 c
4-1076026444
evvcom
2004-02-06 03:14
2004.04.11
WriteProcessMemory


1-1082437367
Tornado
2004-04-20 09:02
2004.04.11
Какой использовать компонент?


6-1075869567
dr Tr0jan
2004-02-04 07:39
2004.04.11
Как в TidTCPClient принять строку?


1-1082816283
jiurasic
2004-04-24 18:18
2004.04.11
Как работать с неизвестным типом данных?


4-1078871731
demonyator
2004-03-10 01:35
2004.04.11
Необходимо знать о каждом созданном процессе в системе