Оконная функция нового контрола [D7, WinXP]
Yuri Btr © (2004-03-21 21:16:00)
Ув. мастера, столкнулся с такой проблемой расширяя
функциональность не моей программы - я на постороннем окне создаю
контрол - класс "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:00) [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));
Наверх 
ЧАТ |
Орешник |
|
