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

Вниз

Вопрос про WndProc   Найти похожие ветки 

 
Alex(is) ©   (2003-10-31 15:53) [0]

Уважаемые мастера! Задача такая: нужно заменить у нескольких компонентов WndProc, на одну определённую функцию. Пишу:

...
for i := 0 to ... do begin
SavedWndProcs[i] := xxx.WindowProc;
xxx.WindowProc := MyWndProc;
end;
...
procedure MyWndProc(var Message: TMessage);
begin
...
end;
...


Проблема же вот в чём, в этой процедуре надо вызывать сохранённый WndProc SavedWndProcs[i], но в MyWndProc неизвестно, какому окну пришло сообщение. Поэтому не известен индекс в массиве и поэтому нельзя вызвать прежнюю WndProc.

Как мне узнать, к примеру, Handle окна, которому пришло сообщение?

Заранее благодарен Ale}{(is)


 
Владислав ©   (2003-10-31 15:56) [1]

Используй MakeObjectInstance и FreeObjectInstance


 
Юрий Зотов ©   (2003-10-31 16:29) [2]

Проще Aplication.OnMessage. Там проверяем окно-получатель и вызываем (или НЕ вызываем) все, что угодно.


 
Alex(is) ©   (2003-10-31 18:51) [3]

Спасибо


 
wicked ©   (2003-10-31 19:20) [4]

как вариант - прокси обьект такого вида:

TProxyObject = class(TObject)
TheControl: TWinControl;
SavedProc: TWndMethod;
procedure NewWndProc(var Message: TMessage);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
1-41382
snake1977
2003-10-29 18:10
2003.11.13
Drag & Drop


3-40905
mari
2003-10-20 11:00
2003.11.13
есть ли возможность делать выборку из Query?


1-41544
Palych
2003-10-21 18:31
2003.11.13
Fast Reports


14-41952
Ш-К
2003-10-20 13:15
2003.11.13
Delphi&1C


14-41996
undert
2003-10-14 19:40
2003.11.13
Зацените сайт #2