Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
ВнизПодмена оконной функции Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c