Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

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

 
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;



Страницы: 1 вся ветка

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
15-1160656122
Slava812
2006-10-12 16:28
2006.11.05
Вкладка безопасность


15-1160562761
Anatoly Podgoretsky
2006-10-11 14:32
2006.11.05
Top 10


1-1159414736
apic
2006-09-28 07:38
2006.11.05
Работа с Edit


15-1160918158
PHPDeveloper
2006-10-15 17:15
2006.11.05
издатели дисков на территории СНГ


15-1161085200
Маска
2006-10-17 15:40
2006.11.05
Firewall