Главная страница
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.065 c
9-1065241127
@ndrew
2003-10-04 08:18
2004.04.11
Спрайты и DelphiX...:(((


1-1079717465
Foma
2004-03-19 20:31
2004.04.11
Исходник теста


14-1079514659
Androgin
2004-03-17 12:10
2004.04.11
Что значят следующие значения в Bios e?


11-1059909667
Кладов
2003-08-03 15:21
2004.04.11
Версия 1.82


9-1065350516
IP
2003-10-05 14:41
2004.04.11
Как задать цветовой ключ?