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

Вниз

WndProc, WindowProc   Найти похожие ветки 

← →
Akni   (2002-10-22 00:19) [0]

Привет Мастерам!

Помогите, пожалуйста, разобраться с такой проблемой: как отловить события (Mouse and Keyboard Events), посылаемые какой-то конкретной MDI-форме приложения.
Пытаюсь у всех контролов этой формы подменить WindowProc c помощью такого кода:

var WMyMessage:TMsg;

procedure TfrmMDIChild.ISWndProc(var message: TMessage);
begin
with message do
begin
if (msg=WM_LBUTTONDOWN)
or (msg=WM_LBUTTONUP)
or (msg=WM_LBUTTONDBLCLK)
or (msg=WM_RBUTTONDOWN)
or (msg=WM_RBUTTONUP)
or (msg=WM_RBUTTONDBLCLK)
then
begin
WMyMessage:=Message;
bNewMessage:=true;
end;
end;
Inherited WndProc(Message);
end;

procedure TfrmMDIChild.FormCreate(Sender: TObject);
var i: integer;
begin
for i:=0 to ControlCount-1 do
begin
Controls[i].WindowProc:=ISWndProc;
end;
end;

В итоге получаю Stack overflow...
Что я делаю не так и как с этим бороться?

Заранее всем спасибо.

---

← →
apay   (2002-10-22 10:31) [1]

ставь хуки, об этом много писалось...

---

← →
Игорь Шевченко   (2002-10-22 12:06) [2]

Надо для каждого control"a запоминать адрес его старой процедуры и вызывать ее а не inherited.

---

← →
Akni   (2002-10-22 12:41) [3]

to Игорь Шевченко
sorry za glupii vopros, no kak zapomnit" adres staroi prozeduri?

---

← →
MBo   (2002-10-22 12:46) [4]

Oldproc:=Controls[i].WindowProc;
Controls[i].WindowProc:=NewProc;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.007 c