在
在心
Unregistered / Unconfirmed
GUEST, unregistred user!
好久没来这里问俩个问题了!
请问各位大虾，还是先看看我的源代码吧！
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 20 do
with form1.ListView1.Items.Add do
begin
caption:='目标'+inttostr(i);
if (i mod 2=0) then imageindex:=1;
end;
end;
我想求得第i各图标的在listview中的坐标，
该怎么办呀？
请问各位大虾，还是先看看我的源代码吧！
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 20 do
with form1.ListView1.Items.Add do
begin
caption:='目标'+inttostr(i);
if (i mod 2=0) then imageindex:=1;
end;
end;
我想求得第i各图标的在listview中的坐标，
该怎么办呀？