ShellBrowser Delphi Components Documentation
|
This example will show the context menu for the selected items in a TJamDriveList, after the user released the right mouse button:
procedure TMainForm.DriveListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Item : TListItem; begin if (Button!=mbRight) or (OtherCondition) then exit; Item := List.GetItemAt(X,Y); if not Assigned(Item) then exit; DriveList.ShowContextMenu(DriveList.ClientToScreen(Point(X,Y))); end;