Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Вниз
перехватывание сообщений Найти похожие ветки
← →
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]
> Игорь Шевченко ©
Большое спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
