DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: a12315
今日帖子: 53
在线用户: 8
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 lqlayy (lqlayy) ★☆☆☆☆ -
禁用账号
2003/5/29 23:59:02
标题:
被禁用帐号,仅在管理模式可见! 浏览:3777
加入我的收藏
楼主: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,账号被禁用!
作者:
男 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 ★
作者:
男 lqlayy (lqlayy) ★☆☆☆☆ -
禁用账号
2003/5/30 9:51:58
3楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,账号被禁用!
作者:
男 ln_81 (delphior) ★☆☆☆☆ -
普通会员
2003/5/30 11:05:26
4楼: 2000条还嫌多啊,我做网络监测,数据库少说上万条记录
----------------------------------------------
-
作者:
女 yjcheng (sunny) ★☆☆☆☆ -
盒子活跃会员
2003/5/30 22:21:19
5楼: 由于有重复的城市,你能否先添加省作为LEVEL 1;
然后在这个节点上双击,添加符合条件的城市,作为LEVEL 2;
如果TREEVIEW的节点一次全部添加,相应会很慢,特别是在不是局网的情况下,
而且,没有必要一次添加全部
----------------------------------------------
-
作者:
男 lqlayy (lqlayy) ★☆☆☆☆ -
禁用账号
2003/6/2 11:37:50
6楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,账号被禁用!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS