![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
перехватывание сообщений [D6, Win95/98, WinME]
Digi © (2002-07-17 04:15:00)Доброй ночи!
Подскажите, плиз, как перехватить какое-нибудь сообщение посылаемое в стринггрид, который лежит на форме.
Сообщения, которые посылаются форме, я перехватить могу, а, которые посылается в стринггрид, не могу ... если не сложно, то привидите пример. Заранее спасибо.
Digi (2002-07-17 16:25:00) [1]
> Игорь Шевченко ©
Большое спасибо!
Song (2002-07-17 15:04:00) [2]Можно и так :-)
Игорь Шевченко (2002-07-17 15:01:00) [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;
С уважением,
Digi (2002-07-17 14:42:00) [4]
> Song © (17.07.02 12:12)
> Надо сделать наследника и описать для него процедуры с перехватываемыми
> сообщениями.
А как мне потом этот клас-наследник на форму положить? Его надо будет регистрировать как новый компонент?
Song (2002-07-17 12:12:00) [5]Надо сделать наследника и описать для него процедуры с перехватываемыми сообщениями.