перехватывание сообщений

← →
Digi (2002-07-17 04:15) [0]

Доброй ночи!
Подскажите, плиз, как перехватить какое-нибудь сообщение посылаемое в стринггрид, который лежит на форме.
Сообщения, которые посылаются форме, я перехватить могу, а, которые посылается в стринггрид, не могу ... если не сложно, то привидите пример. Заранее спасибо.

← →
Song (2002-07-17 12:12) [1]

Надо сделать наследника и описать для него процедуры с перехватываемыми сообщениями.

← →
Digi (2002-07-17 14:42) [2]

> Song © (17.07.02 12:12)
> Надо сделать наследника и описать для него процедуры с перехватываемыми
> сообщениями.

А как мне потом этот клас-наследник на форму положить? Его надо будет регистрировать как новый компонент?

← →
Игорь Шевченко (2002-07-17 15:01) [3]

Не надо ничего делать.

Описываете в форме
private
FOldGridWndProc : TWndMethod;
procedure GridWndProc (var Message : TMessage);
...
end;

В событии OnCreate формы пишете:

with StringGrid1 do begin
FOldGridWndProc := WindowProc;
WindowProc := GridWndProc;
end;

и, соответствено
procedure TForm1.GridWndProc(var Message: TMessage);
begin
if (Message.Msg = то, что надо) then begin
...
end;
FOldGridWndProc (Message);
end;

С уважением,

← →
Song (2002-07-17 15:04) [4]

Можно и так :-)

← →
Digi (2002-07-17 16:25) [5]

перехватывание сообщений Найти похожие ветки