5,379
社区成员
发帖
与我相关
我的任务
分享
procedure OnItemChecked(Sender: TObject; Item: TListItem);
{另外的方法}
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,idx: Integer;
begin
idx := ListView1.ItemIndex;
if idx <> -1 then
begin
for I := 0 to ListView1.Items.Count - 1 do
begin
ListView1.Items.Item[i].Checked := False;
end;
ListView1.Items.Item[idx].Checked := True;
end;
end;
{delphi2010 例子编译通过}
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var
i: Integer;
begin
for I := 0 to ListView1.Items.Count - 1 do
begin
ListView1.Items.Item[i].Checked := False;
end;
Item.Checked := True;
end;