Delphi ListView\u57fa\u672c\u7528\u6cd5\u5927\u5168<\/p>\n
\/\/\u589e\u52a0\u9879\u6216\u5217(\u5b57\u6bb5)<\/p>\n
ListView1.Clear;\r\nListView1.Columns.Clear;\r\nListView1.Columns.Add;\r\nListView1.Columns.Add;\r\nListView1.Columns.Add;\r\nListView1.Columns.Items[0].Caption:='id';\r\nListView1.Columns.Items[1].Caption:='type';\r\nListView1.Columns.Items[2].Caption:='title';\r\nListView1.Columns.Items[2].Width:=300;\r\nListview1.ViewStyle:=vsreport;\r\nListview1.GridLines:=true; \/\/\u6ce8:\u6b64\u5904\u4ee3\u7801\u4e5f\u53ef\u4ee5\u76f4\u63a5\u5728\u53ef\u89c6\u5316\u7f16\u8f91\u5668\u4e2d\u5b8c\u6210,<\/pre>\n\u4e5f\u53ef\u5199\u6210\u4ee5\u4e0b\u8fd9\u6837<\/p>\n
begin\r\n with listview1 do\r\n begin\r\n Columns.Add;\r\n Columns.Add;\r\n Columns.Add;\r\n ViewStyle:=vsreport;\r\n GridLines:=true;\r\n columns.items[0].caption:='\u8fdb\u7a0b\u540d';\r\n columns.items[1].caption:='\u8fdb\u7a0bID';\r\n columns.items[2].caption:='\u8fdb\u7a0b\u6587\u4ef6\u8def\u5f84';\r\n Columns.Items[0].Width:=100;\r\n Columns.Items[1].Width:=100;\r\n Columns.Items[2].Width:=150;\r\n end\r\nend;<\/pre>\n\/\/\u589e\u52a0\u8bb0\u5f55\r\nwith listview1.items.add do\r\nbegin\r\n caption:='1212';\r\n subitems.add('hh1');\r\n subitems.add('hh2');\r\nend;<\/pre>\n\/\/\u5220\u9664\r\nlistview1.items.delete(0);<\/pre>\n\/\/\u4ece\u6570\u636e\u5e93\u8868\u91cc\u8bfb\u53d6\u6570\u636e\u5199\u5165Listview<\/p>\n
var\r\nTitem:Tlistitem; \/\/\u6b64\u5904\u4e00\u5b9a\u8981\u9884\u5b9a\u4e49\u4e34\u65f6\u8bb0\u5f55\u5b58\u50a8\u53d8\u91cf.\r\nbegin\r\n ListView1.Items.Clear;\r\n with adoquery1 do\r\n begin\r\n close;\r\n sql.Clear;\r\n sql.Add('select spmc,jg,sl from kcxs');\r\n Open;\r\n ListView1.Items.Clear;\r\n while not eof do\r\n begin\r\n Titem:=ListView1.Items.add;\r\n Titem.Caption:=FieldByName('spmc').Value;\r\n Titem.SubItems.Add(FieldByName('sl').Value);\r\n Titem.SubItems.Add(FieldByName('jg').Value);\r\n next;\r\n end;\r\n end;\r\nend;<\/pre>\n\/\/\u5220\u9664<\/p>\n
ListView1.DeleteSelected;<\/pre>\n\/\/\u5982\u4f55\u53d6\u5f97ListView\u4e2d\u9009\u4e2d\u884c\u7684\u67d0\u4e00\u5217\u7684\u503c<\/p>\n
procedure TForm1.Button2Click(Sender: TObject);\r\nbegin\r\n ShowMessage(ListView1.Selected.SubItems.Strings[1]); \/\/\u8fd4\u56de\u9009\u4e2d\u884c\u7b2c\u4e09\u5217\u4e2d\u7684\u503c\r\nend;<\/pre>\nshowMessage(listView1.Selected.Caption); \/\/\u8fd4\u56de\u9009\u4e2d\u884c\u7b2c\u4e00\u5217\u7684\u503c.<\/p>\n
\u7b2c1\u5217\u7684\u503c\uff1a -->>> ListView1.Selected.Caption
\u7b2ci\u5217\u7684\u503c(i>1):-->>> ListView1.Selected.SubItems.Strings[i]<\/p>\nListView1.Items.Item[1].SubItems.GetText); \/\/\u53d6\u5f97listview\u67d0\u884c\u67d0\u5217\u7684\u503c<\/p>\n
Edit2.Text := listview1.Items[i].SubItems.strings[0]; \/\/\u8bfb\u7b2ci\u884c\u7b2c2\u5217<\/p>\n
\u8fd4\u56de\u9009\u4e2d\u884c\u6240\u6709\u5b50\u5217\u503c.\u662f\u4ee5\u56de\u8f66\u7b26\u5206\u5f00\u7684\uff0c\u4f60\u8fd8\u8981\u4ece\u4e2d\u5265\u79bb\u51fa\u6765\u4f60\u8981\u7684\u5b50\u5217\u7684\u503c\u3002<\/p>\n
showMessage(ListView1.Selected.SubItems.GetText); <\/p>\n
ListView \u7b80\u5355\u6392\u5e8f\u7684\u5b9e\u73b0<\/p>\n
ListView \u6392\u5e8f<\/p>\n
\u600e\u6837\u5b9e\u73b0\u5355\u51fb\u4e00\u4e0b\u6309\u5347\u5e8f,\u518d\u5355\u51fb\u4e00\u4e0b\u6309\u964d\u5e8f\u3002<\/p>\n
function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall;\r\nbegin\r\n if ColumnIndex = 0 then\r\n Result := CompareText(Item1.Caption,Item2.Caption)\r\n else\r\n Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1])\r\nend;\r\n\r\nprocedure TFrmSrvrMain.ListView1ColumnClick(Sender: TObject;Column: TListColumn);\r\nbegin\r\n ListView1.CustomSort(@CustomSortProc,Column.Index);\r\nend;<\/pre>\n===============================================================<\/p>\n
\/\/\u589e\u52a0<\/p>\n
i := ListView1.Items.Count;\r\nwith ListView1 do\r\n begin\r\n ListItem:=Items.Add;\r\n ListItem.Caption:= IntToStr(i);\r\n ListItem.SubItems.Add('\u7b2c '+IntToStr(i)+' \u884c');\r\n ListItem.SubItems.Add('\u7b2c\u4e09\u5217\u5185\u5bb9');\r\n end;<\/pre>\n\/\/\u6309\u6807\u9898\u5220\u9664<\/p>\n
for i:=ListView1.Items.Count-1 downto 0 Do\r\nif ListView1.Items[i].Caption = Edit1.Text then\r\nbegin\r\nListView1.Items.Item[i].Delete(); \/\/\u5220\u9664\u5f53\u524d\u9009\u4e2d\u884c\r\nend;<\/pre>\n\/\/\u9009\u4e2d\u4e00\u884c<\/p>\n
if ListView1.Selected <> nil then\r\nEdit1.Text := ListView1.Selected.Caption;<\/pre>\n\/\/ listview1.Items[Listview1.Items.Count -1].Selected := True;\r\n\/\/ listview1.Items[Listview1.Items.Count -1].MakeVisible(True);\r\nprocedure TForm1.Button2Click(Sender: TObject); \/\/ \u9009\u62e9\u7b2c\u4e00\u6761\r\nbegin\r\nlistview1.SetFocus;\r\nlistview1.Items[0].Selected := True;\r\nend;\r\nprocedure TForm1.Button1Click(Sender: TObject); \/\/ \u9009\u62e9\u6700\u540e\u4e00\u6761\r\nbegin\r\nlistview1.SetFocus;\r\nlistview1.Items[Listview1.Items.Count -1].Selected := True;\r\nend;\r\n\/\/\u8fd9\u662f\u4e2a\u901a\u7528\u7684\u8fc7\u7a0b\r\nprocedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean);\r\nvar\r\nDestItem : TListItem;\r\nbegin\r\nif (Item = nil) or\r\n((Item.Index - 1 < 0) and MoveUp) or\r\n((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))\r\nthen Exit;\r\nlv.Items.BeginUpdate;\r\ntry\r\nif MoveUp then\r\nDestItem := lv.Items.Insert(Item.Index - 1)\r\nelse\r\nDestItem := lv.Items.Insert(Item.Index + 2);\r\nDestItem.Assign(Item);\r\nlv.Selected := DestItem;\r\nItem.Free;\r\nfinally\r\nlv.Items.EndUpdate;\r\nend;\r\nif SetFocus then lv.SetFocus;\r\nDestItem.MakeVisible(False);\r\nend;<\/pre>\n\/\/\u6b64\u4e3a\u8c03\u7528\u8fc7\u7a0b\uff0c\u53ef\u4ee5\u4efb\u610f\u6307\u5b9a\u8981\u79fb\u52a8\u7684Item\uff0c\u4e0b\u9762\u662f\u5f53\u524d(Selected)Item<\/p>\n
ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);\/\/\u4e0a\u79fb\r\nListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);\/\/\u4e0b\u79fb<\/pre>\n<\/p>\n
TListView\u7ec4\u4ef6\u4f7f\u7528\u65b9\u6cd5<\/p>\n
\u5f15\u7528CommCtrl\u5355\u5143<\/p>\n
procedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n ListView_DeleteColumn(MyListView.Handle, i);\/\/i\u662f\u8981\u5220\u9664\u7684\u5217\u7684\u5e8f\u53f7\uff0c\u4ece0\u5f00\u59cb\r\nend;<\/pre>\n\u7528LISTVIEW\u663e\u793a\u8868\u4e2d\u7684\u4fe1\u606f\uff1a<\/p>\n
procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);\r\nbegin\r\n tlistview(listv).Items.BeginUpdate; {listv:listview\u540d}\r\n try\r\n tlistview(listv).Items.Clear;\r\n with table do {table or query\u540d}\r\n begin\r\n active:=true;\r\n first;\r\n while not eof do\r\n begin\r\n listitem:=tlistview(listv).Items.add;\r\n listitem.Caption:=trim(table.fields[i].asstring);\r\n \/\/ listitem.ImageIndex:=8;\r\n next;\r\n end;\r\n end;\r\n finally\r\n tlistview(listv).Items.EndUpdate;\r\n end;\r\nend;<\/pre>\n<\/p>\n
ListView\u4f7f\u7528\u4e2d\u7684\u4e00\u4e9b\u8981\u70b9\u3002\u4ee5\u4e0b\u4ee5\u4e00\u4e2a\u4e24\u5217\u7684ListView\u4e3a\u4f8b\u3002<\/p>\n
\u2192\u589e\u52a0\u4e00\u884c\uff1a<\/p>\n
with ListView1 do\r\nbegin\r\n ListItem:=Items.Add;\r\n ListItem.Caption:='\u7b2c\u4e00\u5217\u5185\u5bb9';\r\n ListItem.SubItems.Add('\u7b2c\u4e8c\u5217\u5185\u5bb9');\r\nend;<\/pre>\n\u2192\u6e05\u7a7aListView1\uff1a<\/p>\n
ListView1.Items.Clear;<\/pre>\n\u2192\u5f97\u5230\u5f53\u524d\u88ab\u9009\u4e2d\u884c\u7684\u884c\u7684\u884c\u53f7\u4ee5\u53ca\u5220\u9664\u5f53\u524d\u884c\uff1a<\/p>\n
For i:=0 to ListView1.Items.Count-1 Do\r\n If ListView1.Items[i].Selected then \/\/i=ListView1.Selected.index\r\n begin\r\n ListView1.Items.Delete(i); \/\/\u5220\u9664\u5f53\u524d\u9009\u4e2d\u884c\r\n end;<\/pre>\n\u5f53\u7136\uff0cListView\u6709OnSelectItem\u4e8b\u4ef6,\u53ef\u4ee5\u5224\u65ad\u9009\u62e9\u4e86\u54ea\u884c,\u7528\u4e2a\u5168\u5c40\u53d8\u91cf\u628a\u5b83\u8d4b\u503c\u51fa\u6765\u3002<\/p>\n
\u2192\u8bfb\u67d0\u884c\u67d0\u5217\u7684\u64cd\u4f5c\uff1a<\/p>\n
Edit1.Text := listview1.Items[i].Caption; \/\/\u8bfb\u7b2ci\u884c\u7b2c1\u5217\r\nEdit2.Text := listview1.Items[i].SubItems.strings[0]; \/\/\u8bfb\u7b2ci\u884c\u7b2c2\u5217\r\nEdit3.Text := listview1.Items[i].SubItems.strings[1]; \/\/\u8bfb\u7b2ci\u884c\u7b2c3\u5217<\/pre>\n\u4ee5\u6b21\u7c7b\u63a8\uff0c\u53ef\u4ee5\u7528\u5faa\u73af\u8bfb\u51fa\u6574\u5217\u3002<\/p>\n
\u2192\u5c06\u7126\u70b9\u4e0a\u79fb\u4e00\u884c\uff1a<\/p>\n
For i:=0 to ListView1.Items.Count-1 Do\r\nIf (ListView1.Items[i].Selected) and (i>0) then\r\n begin\r\n ListView1.SetFocus;\r\n ListView1.Items.Item[i-1].Selected := True;\r\n end;<\/pre>\n\u4e0d\u8fc7\u5728Delphi6\u4e2d\uff0cListView\u591a\u4e86\u4e00\u4e2aItemIndex\u5c5e\u6027\uff0c\u6240\u4ee5\u53ea\u8981<\/p>\n
ListView1.SetFocus;\r\nListView1.ItemIndex:=3;<\/pre>\n\u5c31\u80fd\u8bbe\u5b9a\u7126\u70b9\u4e86\u3002<\/p>\n
Delphi\u7684listview\u80fd\u5b9e\u73b0\u4ea4\u66ff\u989c\u8272\u4e48\uff1f<\/p>\n
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;var DefaultDraw: Boolean);\r\nvar\r\ni: integer;\r\nbegin\r\n i:= (Sender as TListView).Items.IndexOf(Item);\r\n if odd(i) then\r\n sender.Canvas.Brush.Color:= $02E0F0D7\r\n else \r\n sender.Canvas.Brush.Color:= $02F0EED7;\r\n Sender.Canvas.FillRect(Item.DisplayRect(drIcon));\r\nend;<\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
Delphi ListView\u57fa\u672c\u7528\u6cd5\u5927\u5168 \/\/\u589e\u52a0\u9879\u6216\u5217(\u5b57\u6bb5) ListView1.Clear; List […]<\/p>\n","protected":false},"author":1,"featured_media":36149,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[198,199],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36148"}],"collection":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=36148"}],"version-history":[{"count":3,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36148\/revisions"}],"predecessor-version":[{"id":36318,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36148\/revisions\/36318"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/media\/36149"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36148"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36148"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36148"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}