FOnClick: TDocumentContextMenuEvent;
FOnMouseMove: TDocumentContextMenuEvent;
FOnMouseDown: TDocumentContextMenuEvent;
+ FOnDoubleClick: TDocumentContextMenuEvent;
protected
{ IUnknown }
function QueryInterface(const IID:TGUID; out Obj): HRESULT; stdcall;
property OnClick: TDocumentContextMenuEvent read FOnClick write FOnClick;
property OnMouseMove: TDocumentContextMenuEvent read FOnMouseMove write FOnMouseMove;
property OnMouseDown: TDocumentContextMenuEvent read FOnMouseDown write FOnMouseDown;
+ property OnDoubleClick: TDocumentContextMenuEvent read FOnDoubleClick write FOnDoubleClick;
end;
implementation
if Assigned(FOnClick) then begin
PVariant(VarResult)^ := FOnClick(FOwner);
end;
+ DISPID_DBLCLICK:
+ if Assigned(FOnDoubleClick) then begin
+ PVariant(VarResult)^ := FOnDoubleClick(FOwner);
+ end;
1023:
if Assigned(FOnContextMenu) then begin
PVariant(VarResult)^ := FOnContextMenu(FOwner);