有关TListView一个问题(100分)

N

nomad_heart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #1

procedure TfrmMain.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var
Index:SmallInt;
begin
Index:=LyrSource.GetItemAt(X,Y).Index;
if Index<0 then exit;
...
end;
当点击空白区域时候就会出错，怎么解决？

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #2

Item:=LyrSource.GetItemAt(X,Y);
if Item=nil then exit;
Index:=Item.Index;

 

B

BlueWin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #3

这是因为LyrSource.GetItemAt(X,Y)为Nil
改为
if LyrSource.GetItemAt(X,Y) <> nil then
index=LyrSource.GetItemAt(X,Y).index;
或者 if LyrSource.GetItemAt(X,Y) = nil then exit;

 

N

nomad_heart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #4

已解决。
另起一帖：“有关tListBox的一个问题”