Перехват сообщения в наследнике.

← →
Max4 (2006-09-25 15:15) [0]

есть класс

TMyClass = class(TCustomControl) *** protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; end; ***

*** procedure TSpanGrid2.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited MouseDown(Button, Shift, X,Y); *** end; ***

В Form1 создаю экземпляр TMyClass. Как мне в форме Form1 перехватить MouseDown класса TMyClass ?

← →
clickmaker © (2006-09-25 15:17) [1]

inherited MouseDown(Button, Shift, X,Y);
if Assigned(FOnMouseDown) then
FOnMouseDown(Self, Button, Shift, X, Y);

событие сгенерить, а в форме добавить обработчик

← →
Max4 (2006-09-25 15:21) [2]

Мне что в моём классе TMyClass нужно создавать FOnMouseDown типа TMouseEvent со "всем вытекающим"?

← →
clickmaker © (2006-09-25 15:23) [3]

> [2] Max4 (25.09.06 15:21)

а что там такого вытечет?
да и не надо ничего создавать, это уже унаследовано от TControl

← →
Max4 (2006-09-25 15:25) [4]

плин, сорьки. перегрелся видимо. удалите этот пост наф.

← →
Max4 (2006-09-25 15:29) [5]

TMyClass = class(TCustomControl) private FOnMouseDown: TMouseEvent; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; public property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown; **** procedure TMyClass.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited MouseDown(Button, Shift, X,Y); if Assigned(FOnMouseDown) then FOnMouseDown(Self, Button, Shift, X, Y); ****

fMyClass.OnMouseDown := MyClassMouseDown;

Перехват сообщения в наследнике. Найти похожие ветки