如何為元件加上 onMouseMove Events
請教各位前輩
使用某一元件(TfrxPreview),但它沒有 onMouse Move Events
它是繼承自 TCustomControl 的,
請問要怎麼將 onMouse Move 事件取出來使用??

謝謝..各位前輩!!

編輯記錄

Published 加入
...
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;

如果不能觸發，表示 ControlStyle 加入 csCaptureMouse, csClickEvents 的動作。

我試真的不能觸發咃.(On Click 可以)
應該是你講的問題,那有什麼方法的解決嗎?

我試還是不行,請教各位前輩那有錯嗎
OnMouse Move & WMMouseMove 都沒反應


Type


TSYfrxPreview = class(TfrxPreview)
private
{ Private declarations }
procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
public
{ Public declarations }
published
property OnMouse Move;
end;

procedure TFRPreview_f.FormCreate(Sender: TObject);
begin
FPreview := TSYfrxPreview.Create(self);
FPreview.Parent :=Self;
FPreview.Align := alClient ;
FPreview.OnPage Changed :=FPreviewPageChanged;
FPreview.OnMouse Move :=FPreviewMouseMove; --可指定..但不能運作(沒反應)
FPreview.OnDbl Click := Label1Click; --可指定..但不能運做(沒反應)

end;

編輯記錄

在 Create 中

[code delphi]
constructor TSYfrxPreview.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle [csCaptureMouse, csClickEvents, csDoubleClicks];
...
end;
[/code]

感謝 RootKit 前輩指點
但我試還是不行.我在想可能TfrxPreview 的問題吧..
目前改用ApplicationEvents1Message 來做..
先這樣了..感謝!!
謝謝各位前輩