那样是不行的,我发现所有的记录都被选中了。真晕procedure TfrmMachSetting.listMachNoSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if (Selected = False) then begin Item.Selected := True; Exit; end; end;
procedure TfrmMachSetting.listMachNoSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if (Selected = true) then//注意这里 begin Item.Selected := false;//注意这里 Exit; end; end; 但是还要加判断,不然你会全部都选不上的
begin
if (Selected = False) then
begin
Item.Selected := True;
Exit;
end;
end;
begin
if (Selected = true) then//注意这里
begin
Item.Selected := false;//注意这里
Exit;
end;
end;
但是还要加判断,不然你会全部都选不上的