C
carem1
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var //鼠标右键弹出菜单
P:TPoint;
a:string;
begin
a:=listview1.Selected.SubItems[1];
edit1.Text :=a;
if Button = mbRight then
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X,P.Y);
end
else
end;
我选择第一列的时候正常,但是选择别的地方的时候就会报错!why ??
Shift: TShiftState; X, Y: Integer);
var //鼠标右键弹出菜单
P:TPoint;
a:string;
begin
a:=listview1.Selected.SubItems[1];
edit1.Text :=a;
if Button = mbRight then
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X,P.Y);
end
else
end;
我选择第一列的时候正常,但是选择别的地方的时候就会报错!why ??