MouseDown and Scroll bars

[Harry Rogers]

Hi

Using MouseDown in a TreeView to get a right click menu. This stops the scroll bars working.

Is there a way round this ?

 

Thanks

[Sherzod]

Hi,

 

Sorry, can you clarify again your issue?!

 

Best regards.

[Farshad Mohajeri]

Use OnCellContextClick event instead.

[Harry Rogers]

Certainly.

 

I've added a MouseDown event handler to a tree view. So I can display a popup menu when the user does a right click on the Treeview Items.

 

procedure TfrmTransactions.tvTransMouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

 if Button=mbRight then

  UniPopupMenu1.Popup(X, Y,tvtrans);

end;

 

By having UniGui 'trap' the MouseDown like this - it's not possible to scroll the items in the TreeView by clicking on the scroll bars. That is clicking on the scroll bar or the up/down arrows of the TreeView has no effect.

Taking out the MouseDown event handler restores normal behavior.

 

Thanks

[Harry Rogers]

Thanks Farshad

 The vertical position of the popup seems offset using this approach ?

[Farshad Mohajeri]

offset.PNGThanks Farshad

 The vertical position of the popup seems offset using this approach ?

 

How did you call PopUp.Pop method?

[Harry Rogers]

Like this  (as a temp fix - subtracting about 200 seems about right to align the menu again for the window sizes I'm using)

 

procedure TfrmTransactions.tvTransCellContextClick(ANode: TUniTreeNode; X,

  Y: Integer);

begin

  UniPopupMenu1.Popup(X, Y -190,tvtrans);

end;

 

Cheers