Переопределение событий

← →
ErmSergey (2002-08-23 14:15) [0]

Я делаю наследника класса TCustomRichEdit и мне нужно чтобы при возникновении события ОnMouseMove выполнять определенные действия. Как это реализуется?

← →
Reindeer Moss Eater (2002-08-23 14:21) [1]

Так эта задача решается не создателем класса (тобой), а его пользоваетелем

← →
Skier (2002-08-23 14:25) [2]

>ErmSergey
Перекрой : procedure MouseMove(...)

А вообще конечно не понятно зачем тебе событие ОnMouseMove
оно здесь ни причём и должно задаваться пользователем.

← →
ErmSergey (2002-08-23 14:26) [3]

Но мне именно необходимо, чтобы эти действия выполнялись по умолчанию.
Конкретно, мне необходимо чтобы во время перемещения мышки определялось находящееся под ней слово и генерировалось событие.
Может это можно реализовать по другому?

← →
lenin (2002-08-23 14:28) [4]

procedure MouseMove(Shift: TShiftState; X, Y: Integer);override;
....
....
procedure TMyControl.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited MouseMove(Shift,x,y);
...
end;

← →
ErmSergey (2002-08-23 14:29) [5]

БОЛЬШОЕ СПАСИБО

← →
Skier (2002-08-23 14:31) [6]

>ErmSergey

> Но мне именно необходимо, чтобы эти действия выполнялись
> по умолчанию.
> Конкретно, мне необходимо чтобы во время перемещения мышки
> определялось находящееся под ней слово и генерировалось
> событие.

procedure MouseMove(Shift: TShiftState; X, Y: Integer);override; .... .... procedure TMyControl.MouseMove(Shift: TShiftState; X, Y: Integer); begin inherited MouseMove(Shift,x,y); // твои действия перед событием...FOnMouseMove if Assigned(FOnMouseMove) then FOnMouseMove(Self, Shift, X, Y); end;

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