问题请教!!在线等！！！！ ( 积分: 0 )

在listview中，当鼠标没有没有点击里面的记录，而是点击listview记录之外的地方
(但在listview里面)，，怎样让其弹出对话框！！！

在listview中，当鼠标没有没有点击里面的记录，而是点击listview记录之外的地方
(但在listview里面)，，怎样让其弹出对话框！！！

TForm1 = class(TForm)
...
Private
FItemClick: Boolean;
....
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if not FItemClick then
showmessage('aaa');
FItemClick := false;
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
if ListView1.Selected <> nil then
FItemClick := true;
end;