各位朋友,你们好。我是这么建立的: procedure TForm1.Button1Click(Sender: TObject); var vLI: TListItem; vI: Byte; begin for vi:= 0 to 3 do //建立4个 begin vLI:= ListView1.Items.Add; vLI.Caption := IntToStr(vI); end; end;procedure TForm1.Button2Click(Sender: TObject); begin if ListView1.Selected <> nil then ShowMessage(IntToHex(ListView1.Selected.Handle, 8));//显示选中的16进制句柄 end;
var
vLI: TListItem;
vI: Byte;
begin
for vi:= 0 to 3 do //建立4个
begin
vLI:= ListView1.Items.Add;
vLI.Caption := IntToStr(vI);
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if ListView1.Selected <> nil then
ShowMessage(IntToHex(ListView1.Selected.Handle, 8));//显示选中的16进制句柄
end;
实际还是那一个ListView1
对了,请问如何区分他们?