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

Вниз

Оконная функция нового контрола   Найти похожие ветки 

 
Yuri Btr ©   (2004-03-21 21:16) [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.06 c
1-1082487598
KLAUS
2004-04-20 22:59
2004.04.11
HELp строку из файла с LAbel


3-1081686065
kaif
2004-04-11 16:21
2004.04.11
Уникальность Case Insensitive


14-1079499898
Рамиль
2004-03-17 08:04
2004.04.11
Если вам не хватает объема винта...


1-1082717242
афвуд
2004-04-23 14:47
2004.04.11
Как установить дробный разделитель для чисел в своей проге?


1-1079985762
MonkRo
2004-03-22 23:02
2004.04.11
Надстрочные и подстрочные знаки в RichEdit