关于listview 中怎样才能不让这样的错误发生

Question

procedure TForm1.ListView1Click(Sender: TObject);
begin
if listview1.SelCount=0 then
   exit            //点击listview中的空白就退出
else
   //do somethingend;

Answer 1

procedure Tmb_select_frm.FormCreate(Sender: TObject);
var
i:integer;
Aitem:TListItem;
begini:=0;
adoquery1.Close;adoquery1.Open;
listview1.Items.Clear;
while not adoquery1.Eof do
begin
Aitem:=listview1.Items.Add;
Aitem.Caption :=adoquery1.FieldByName('name').asstring ;
adoquery1.next;
end;
end;另外你看一下你ListView的Click或DBClick事件的代码是什么样的，可能跟那里有关系！

Answer 2

if listview1.selected <> nil then
....

Answer 3

if listview1.selected <> nil then
....