TShellBrowser.ShowContextMenu Method (TPoint, TPopupMenu, TMenuItem)

Shows the context menu for files or folders.

Syntax

Pascal

function ShowContextMenu(const lppt: TPoint; M: TPopupMenu = nil; ShellMenuAnchor: TMenuItem = nil): String; overload;

Returns

The function returns the verb of the executed command (e.g. 'open', 'properties', 'delete') or the empty string if the user didn't select a command.

Remarks

Use ShowContextMenu to show the context menu for the current object at position lppt. This is the absolute position on the windows screen. You can use the ClientToScreen method of Delphis VCL components to get the absolute coordinates. If M is not nil, the given Delphi popup menu will appear at the end of the explorer context menu. See InvokeContextMenuCommand for more information.

If you want to show the context menu for multiple objects, you must add the names of these objects to MultiObjects. ShowContextMenu will use the names provided in MultiObjects, if this list is not empty.

You can control if the shell context menu should be added above or below the supplied TPopupMenu using the property ShowContextMenuOnTop.

See Also

TShellBrowser.MultiObjects

TShellBrowser.OnContextMenuSelect

TShellBrowser.OnRename

TShellBrowser.ReadOnly

TShellBrowser.ShowContextMenuOnTop

TShellBrowser.InvokeContextMenuCommand

Example

The following example will react on a right click of the user in a tree view. The full path of the folder is stored in the data property of the TTreeNode. If you are using Delphi 3, you should set the RightClickSelect property of your TTreeView to true.

procedure TMainForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Node: TTreeNode; begin if Button <> mbRight then exit; Node := TreeView.GetNodeAt(X,Y); if not Assigned(Node) then exit; // No Item hit ShellBrowser.ObjectName := PChar(Node.Data); ShellBrowser.ShowContextMenu(TreeView.ClientToScreen(Point(x,y)), nil); end;

Class

TShellBrowser Class

Contents | Index | Home