Форум: "Основная";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
ВнизПерехват сообщения в наследнике. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.05 c