导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/5/29 23:59:02
标题:
加入我的收藏
楼主:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
发布广告,账号被禁用!
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/5/30 0:22:24
1楼:
參考看看 TREEVIEW的使用 基本信息: TreeView 是一個顯示樹型結構的控件,每一個節點都是一個新類, 使用具有代表性 每個節點都有四個值: TEXT:顯示文字 Image Index:顯示圖形序號 Selected Index: State Index: (1)建立目錄項(本例中使用的TREEVIEW名稱為:TvwTips) 增加根目錄下的節點:(節點) var CatNode : TTreeNode; //先建立一個TREEVIEW使用的子對像 begin TvwTips.SetFocus; //將焦點置到這個TREEVIEW控件上 TvwTips.SetFocus; //將焦點置到這個TREEVIEW控件上 { 在根標題下建立一個新的子標題 } CatNode := TvwTips.Items.AddChild( TvwTips.Items.GetFirstNode,'New Category' ); CatNode.ImageIndex := 1; CatNode.SelectedIndex := 2; CatNode.EditText; { 允許用戶改變這個標題 } end; 增加下一級目錄(內容): var ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用 的子對像 VersionNum : Integer; begin TvwTips.SetFocus; //將焦點置到這個TREEVIEW控件上 VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip } ParentNode := TvwTips.Selected; { 取出當前的選中節點 } if ParentNode.Level = nlTip then{ Parent cannot be a tip node } ParentNode := TvwTips.Selected.Parent; TipNode := TvwTips.Items.AddChildObject( ParentNode,'New Subject',Pointer( VersionNum ) ); TipNode.ImageIndex := 3; { Normal tip bitmap } TipNode.SelectedIndex := 4; { Highlighted tip bitmap } TipNode.MakeVisible; { Move new tip node into view } TipNode.EditText; { Immediately allow user to edit subject } EnableTreeViewFunctions( TipNode.Level ); RtfTip.Clear; RtfTip.Modified := False; end; (2)說明 TvwTips.Items.GetFirstNode 返回TREEVIEW的第一個節點,函數類型為 :TTreeNode TvwTips.Items.Count 返回當前TreeView的全部節點數,整數 TvwTips.Selected.Level 返回當前選中節點的在目錄樹中的級別, 根目錄為0 TvwTips.Selected.Parent 返回當前選中節點上級節點,函數類型為 :TTreeNode ------------------------------------------------------------------ 我把我目前找到的一些方法提供大家參考一下. TreeView1.Selected.Level; //顯示階層數 Integer TreeView1.Selected.Text; //顯示選到節點的文字內容 TreeView1.Selected.Parent.Text; //顯示上一層節點的文字內容 TreeView1.Selected.Count; TreeView1.Items.Add(Nil,'Node_Name'); //新增 Root 節點 TreeView1.Items.AddChild(TreeView1.Selected,'Node_Name'); //新增子節點到現在節點下 TreeView1.Selected.EditText; TreeView1.Selected.Delete; TreeView1.Items[i].Text;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
boy (阿門)
★☆☆☆☆
-
盒子活跃会员
2003/5/30 0:39:29
2楼:
TListView的使用 ListView1.Items 為標準 Tlistitems類 ListView1.Items (1)賦值 with ListView1.Items.Add do begin Caption:='caption'; //添加第一項 SubItems.add('aaaaa'); //添加後面數據 SubItems.add('1234'); SubItems.add('1234'); end; //一定要使用WITH結構. (2)取值 listview1.Items.Item[i].Caption 取得某條數據標題 listview1.Items.Item[i].SubItems.Strings[j] 取得某條數據內容 listview1.Items.Item[i].SubItems.CommaText 一條記錄的全部內容, 格式: "標題","內容1","內容2",.... listview1.Items.Item[i].SubItems.Text 一條記錄的全部內容, 格式: 標題%0D%0A內容%0D%0A內容2%0D%0A.... (3)刪除 listview1.Items.Item[i].Delete; 刪除一條數據 (4)數據類型(長度)定義 i:=ListView1.Items.Count 數據條數 listview1.Items.Item[i].Selected 該條數據選中否(MultiSelect決定單選復選 d 該條數據選中否(MultiSelect決定單選復選 ) (5)其他 ListView1.Items.Clear; 清除數據
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
2003/5/30 9:51:58
3楼:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
发布广告,账号被禁用!
作者:
ln_81 (delphior)
★☆☆☆☆
-
普通会员
2003/5/30 11:05:26
4楼:
2000条还嫌多啊,我做网络监测,数据库少说上万条记录
----------------------------------------------
-
作者:
2003/5/30 22:21:19
5楼:
由于有重复的城市,你能否先添加省作为LEVEL 1; 然后在这个节点上双击,添加符合条件的城市,作为LEVEL 2; 如果TREEVIEW的节点一次全部添加,相应会很慢,特别是在不是局网的情况下, 而且,没有必要一次添加全部
----------------------------------------------
-
作者:
2003/6/2 11:37:50
6楼:
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
发布广告,账号被禁用!