Type

TMT = class (TWinControl)

....



FOnClick : TNotifyEvent;

FMouseDown: TMouseEvent;



protected

{ Protected declarations }

procedure START(Sender: Tobject); virtual;



procedure MyMouseDown(sender: Tobject;

button: TMouseButton; Shift: TshiftState; x,y: integer);virtual;



published

property OnClick_Start : TNotifyEvent read FOnClick write FOnClick;

property OnMouse_Down : TMouseEvent read FMouseDown write FMouseDown;





....





procedure TMT.START(Sender: Tobject);

begin

if Assigned(FOnClick) then FOnClick(Self);

end;



procedure TMT.MyMouseDown(sender: Tobject;

button: TMouseButton; Shift: TshiftState; x,y: integer);

begin

if Assigned(FOnClick) then FOnClick(Self);

end;





여기서



OnClick 은 생성이 되는데

OnMouse_Down 은 왜 안되지요..



고수님들의 도움을 부탁 합니다.