关于 listview 的问题，大过年的请教高手！
我用 listview1.Canvas 在 listview 里 画了 10个 正方形，请问 怎么能 点击这10个正方形的 随便一个 都能弹出 一句话！

[解决办法]
先将10个框框的位置放在Rects中，Rects定义如下
Rects: array [1..10] of TRect;
ListView1添加OnClick事件，如下：
procedure TForm1.ListView1Click(Sender: TObject);
var
pt: TPoint;
I: Integer;
begin
GetCursorPos(pt);
pt := ListView1.ScreenToClient(pt);
for I := low(Rects) to high(Rects) do
begin
with Rects[I],pt do
begin
if (Left <= x) and (x <= Right) and (Top <= y) and (y <= Bottom) then
begin
showmessage(Format('第%d个框',[I]));
break;
end;
end;
end;
end;