黑白程式

黑白程式

导航

2008年8月21日

Delphi listview使用部分总结代码

摘要： procedure TForm1.FormCreate(Sender: TObject); var listitem:TListItem ; begin tlistview(lv1 ).Items.BeginUpdate; try tlistview(lv1 ).Items.Clear; with qry1 do begin Clos... 阅读全文

posted @ 2008-08-21 17:56 黑白程式 阅读(258) 评论(0) 推荐(0)

Delphi中treeview的使用部分

摘要： procedure TForm1.Button1Click(Sender: TObject); var MyTreeNode1, MyTreeNode2: TTreeNode; begin with TreeView1.Items do begin Clear; { remove any existing nodes } MyTreeNode1 := Add... 阅读全文

posted @ 2008-08-21 17:44 黑白程式 阅读(361) 评论(0) 推荐(0)