å¯ä»¥ä»¥æ°ç»ä¸æ 访é®ãListView.Items[i].text;
//å¢å
i := ListView1.Items.Count;
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:= IntToStr(i);
ListItem.SubItems.Add('第 '+IntToStr(i)+' è¡');
ListItem.SubItems.Add('第ä¸åå
容');
end;
//ææ é¢å é¤
for i:=ListView1.Items.Count-1 downto 0 Do
if ListView1.Items[i].Caption = Edit1.Text then
begin
ListView1.Items.Item[i].Delete(); //å é¤å½åéä¸è¡
end;
//éä¸ä¸è¡
if ListView1.Selected <> nil then
Edit1.Text := ListView1.Selected.Caption;
// listview1.Items[Listview1.Items.Count -1].Selected := True;
// listview1.Items[Listview1.Items.Count -1].MakeVisible(True);
procedure TForm1.Button2Click(Sender: TObject); // éæ©ç¬¬ä¸æ¡
begin
listview1.SetFocus;
listview1.Items[0].Selected := True;
end;
procedure TForm1.Button1Click(Sender: TObject); // éæ©æåä¸æ¡
begin
listview1.SetFocus;
listview1.Items[Listview1.Items.Count -1].Selected := True;
end;
//è¿æ¯ä¸ªéç¨çè¿ç¨
procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean);
var
DestItem : TListItem;
begin
if (Item = nil) or
((Item.Index - 1 < 0) and MoveUp) or
((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))
then Exit;
lv.Items.BeginUpdate;
try
if MoveUp then
DestItem := lv.Items.Insert(Item.Index - 1)
else
DestItem := lv.Items.Insert(Item.Index + 2);
DestItem.Assign(Item);
lv.Selected := DestItem;
Item.Free;
finally
lv.Items.EndUpdate;
end;
if SetFocus then lv.SetFocus;
DestItem.MakeVisible(False);
end;
//æ¤ä¸ºè°ç¨è¿ç¨ï¼å¯ä»¥ä»»ææå®è¦ç§»å¨çItemï¼ä¸é¢æ¯å½å(Selected)Item
ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//ä¸ç§»
ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//ä¸ç§»
TListViewç»ä»¶ä½¿ç¨æ¹æ³
å¼ç¨CommCtrlåå
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView_DeleteColumn(MyListView.Handle, i);//iæ¯è¦å é¤çåçåºå·ï¼ä»0å¼å§
end;
ç¨LISTVIEWæ¾ç¤ºè¡¨ä¸çä¿¡æ¯ï¼
procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);
begin
tlistview(listv).Items.BeginUpdate; {listv:listviewå}
try
tlistview(listv).Items.Clear;
with table do {table or queryå}
begin
active:=true;
first;
while not eof do
begin
listitem:=tlistview(listv).Items.add;
listitem.Caption:=trim(table.fields[i].asstring);
// listitem.ImageIndex:=8;
next;
end;
end;
finally
tlistview(listv).Items.EndUpdate;
end;
end;
ListView使ç¨ä¸çä¸äºè¦ç¹ã以ä¸ä»¥ä¸ä¸ªä¸¤åçListView为ä¾ã
âå¢å ä¸è¡ï¼
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:='第ä¸åå
容';
ListItem.SubItems.Add('第äºåå
容');
end;
âæ¸
空ListView1ï¼
ListView1.Items.Clear;
âå¾å°å½å被éä¸è¡çè¡çè¡å·ä»¥åå é¤å½åè¡ï¼
For i:=0 to ListView1.Items.Count-1 Do
If ListView1.Items[i].Selected then //i=ListView1.Selected.index
begin
ListView1.Items.Delete(i); //å é¤å½åéä¸è¡
end;
å½ç¶ï¼ListViewæOnSelectItemäºä»¶,å¯ä»¥å¤æéæ©äºåªè¡,ç¨ä¸ªå
¨å±åéæå®èµå¼åºæ¥ã
â读æè¡æåçæä½ï¼
Edit1.Text := listview1.Items[i].Caption; //读第iè¡ç¬¬1å
Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第iè¡ç¬¬2å
Edit3.Text := listview1.Items[i].SubItems.strings[1]; //读第iè¡ç¬¬3å
以次类æ¨ï¼å¯ä»¥ç¨å¾ªç¯è¯»åºæ´åã
âå°ç¦ç¹ä¸ç§»ä¸è¡ï¼
For i:=0 to ListView1.Items.Count-1 Do
If (ListView1.Items[i].Selected) and (i>0) then
begin
ListView1.SetFocus;
ListView1.Items.Item[i-1].Selected := True;
end;
ä¸è¿å¨Delphi6ä¸ï¼ListViewå¤äºä¸ä¸ªItemIndexå±æ§ï¼æ以åªè¦
ListView1.SetFocus;
ListView1.ItemIndex:=3;
å°±è½è®¾å®ç¦ç¹äºã
温馨提示:答案为网友推荐,仅供参考