procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var CursorPoint:TPoint;
begin
CursorPoint:=ListView1.ClientToScreen(Point(X,Y));
if (Button=mbRight) and (ListView1.GetItemAt(X,Y)<>nil) then
popupmenu1.Popup(CursorPoint.X,CursorPoint.Y);
end;
Shift: TShiftState; X, Y: Integer);
var CursorPoint:TPoint;
begin
CursorPoint:=ListView1.ClientToScreen(Point(X,Y));
if (Button=mbRight) and (ListView1.GetItemAt(X,Y)<>nil) then
popupmenu1.Popup(CursorPoint.X,CursorPoint.Y);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货