文档章节

学习 TTreeView [2] - Items.Item[i]、Items[i]、.Text、SetFocus(设置焦点)、Select(选择)

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 254
阅读 6
收藏 0
点赞 0
评论 0
本例效果图:



源码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  i: Integer;

{这四个按钮的功能是一模一样的}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Text := TreeView1.Items.Item[i].Text;
  if i < TreeView1.Items.Count-1 then Inc(i) else i := 0;

  TreeView1.SetFocus;
  TreeView1.Select(TreeView1.Items.Item[i]);
end;

{TreeView1.Items.Item[i] 是默认属性, 可以简写为: TreeView1.Items[i]}
procedure TForm1.Button2Click(Sender: TObject);
begin
  Text := TreeView1.Items[i].Text;
  if i < TreeView1.Items.Count-1 then Inc(i) else i := 0;

  TreeView1.SetFocus;
  TreeView1.Select(TreeView1.Items[i]);
end;

{每个元素都是 TTreeNode 类型的}
procedure TForm1.Button3Click(Sender: TObject);
var
  node: TTreeNode;
begin
  node := TreeView1.Items[i];
  Text := node.Text;
  if i < TreeView1.Items.Count-1 then Inc(i) else i := 0;

  TreeView1.SetFocus;
  TreeView1.Select(node);
end;

{尽量使用 TTreeNodes 与 TTreeNode}
procedure TForm1.Button4Click(Sender: TObject);
var
  Nodes: TTreeNodes;
  node: TTreeNode;
begin
  Nodes := TreeView1.Items;
  node := Nodes[i];
  Text := node.Text;
  if i < Nodes.Count-1 then Inc(i) else i := 0;

  TreeView1.SetFocus;
  TreeView1.Select(node);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/11/1099762.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
QGrapicsScene类

概述 QgraphicsScene类为管理大量的2D图形item提供了一个管理界面,做为item的容器,它配合使用QgraphicsView使用来观察items,例如线,矩形,文本或者自定义的items, QgraphicsScene提供了方...

晨曦之光
2012/04/13
425
0
jQuery获取Select option 选择的Text和Value

jquery radio取值,checkbox取值,select取值,radio选中,checkbox选中,select选中,及其相关设置 获取一组radio被选中项的值:var item = $('input[name=items][checked]').val(); 获取select被选...

小果果x
2015/01/13
0
1
MFC COMBOBOX的使用

MFC COMBOBOX的使用 Combo Box (组合框)控件很简单,可以节省空间。从用户角度来看,这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项,同时...

IMGTN
2012/11/24
0
0
UMEDITOR jsp中script不执行,求解

<%@ page language="java" contentType="text/html; charset=UTF-8" pageEncoding="UTF-8"%> UMEDITOR 完整demo...

zxu
2017/05/03
72
0
jQuery操作form input、select、checkbox、radio常用方法

jQuery获取Select选择的Text和Value: 语法解释: 1. $("#selectid").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2. var checkText=$("#selectid").find("op......

youxizhe
2014/11/13
0
0
jQuery获取Select选择的Text和 Value

jQuery获取Select选择的Text和Value: 语法解释: 1. $("#selectid").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2. var checkText=$("#selectid").find("op......

李长春
2011/10/28
0
0
jQuery获取Select选中的Text和Value,根据Value值动态添加属性等

语法解释: 1. $("#selectid").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2. var checkText=$("#selectid").find("option:selected").text(); //获取Selec......

尚睿软件
2014/02/08
0
1
jQuery获取Select选择的Text和Value

jQuery获取Select选择的Text和Value: 语法解释: 1. $("#select_id").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2. var checkText=$("#select_id").find("o......

gymg
2012/10/10
0
2
jQuery select操作控制方法小结

jQuery获取Select选择的Text和Value: 语法解释: 1. $("#selectid").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2. var checkText=$("#selectid").find("op......

JK_OPERA
2015/07/10
0
0
jQuery radio取值,checkbox取值,select取值

语法解释: 1 $("#selectid").change(function(){//code...}); //为Select添加事件,当选择其中一项时触发 2 var checkText=$("#selectid").find("option:selected").text(); //获取Select选......

蜗牛奔跑
2015/11/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

zk实战--rpc框架集群化

在看此篇内容时需要浏览下面内容 netty实战--手写rpc框架 前文功能简介以及功能扩充 利用netty来实现一个点对点的rpc调用。客户端和服务端都是靠手写地址进行socket同学的,无法1对多,也无法...

xpbob
6分钟前
4
0
springboot 发送邮件

获取授权码 添加配置 # 账号和密码spring.mail.username=aaa@qq.comspring.mail.password=bbb# 服务器地址spring.mail.host=smtp.qq.comspring.mail.properties.mail.smtp.ssl.en...

阿豪boy
6分钟前
0
0
如何使用GNU Ring?

文章名:如何使用GNU Ring? 作者:冰焰火灵X 1079092922@qq.com 文章许可:CC BY-SA 4.0 ##1. 安装 下载GNU Ring 点击左边选择你的系统版本(这里以 GNU/Linux 为例,我使用的是Mint 18.3)...

ICE冰焰火灵X
9分钟前
1
0
深入理解springMVC

什么是spring MVC Spring MVC属于SpringFrameWork的后续产品,已经融合在Spring Web Flow里面。Spring 框架提供了构建 Web 应用程序的全功能 MVC 模块。使用 Spring 可插入的 MVC 架构,从而...

Java填坑之路
15分钟前
0
0
《射雕英雄传》书摘

1. 我虽是个飘泊江湖的贫家女子,可不是低三下四、不知自爱之人。你如真心爱我,须当敬我重我。我此生决无别念,就是钢刀架颈,也决意跟定了你。将来……将来如有洞房花烛之日,自然……自能...

k91191
25分钟前
0
0
解决:modal中datePicker 选中时,会触发modal的hidden.bs.modal事件

最近项目中发现了一个bug,具体表现为选中模态框上datepicker组件上的日期时,会触发模态框的关闭事件,导致数据编辑无法正常进行。网上搜索了下,解决方法如下: $('.datepicker').on('hid...

Funcy1122
29分钟前
0
0
Redis分布式锁的正确实现方式

前言 分布式锁一般有三种实现方式: 1.数据库乐观锁 2.基于Redis的分布式锁; 3.基于Zookeeper的分布式锁。本篇博客将介绍第二种方式,基于Redis实现分布式锁。虽然网上已经有各种介绍Redis...

大海201506
今天
0
0
ClassNotFoundException: javax.el.ELManager

这个是因为tomcat7中的el-api2.2,有些版本太低,建议升级tomcat到8.0,利用el-api3.0就会解决这个问题。

无语年华
今天
0
0
Jvm堆内存的划分结构和优化,垃圾回收详解(详细解答篇)

在JVM中堆空间划分如下图所示 上图中,刻画了Java程序运行时的堆空间,可以简述成如下2条 1.JVM中堆空间可以分成三个大区,新生代、老年代、永久代 2.新生代可以划分为三个区,Eden区,两个幸...

嘻哈开发者
今天
1
0
CentOS 7.4 设置系统字符编码

1.语言变量LANG在 /etc/locale 文件中。 2.可以通过/ect/profile 来修改LC_TYPE 变量的值 添加如下代码 export LC_ALL="zh_CN.GBK" export LANG="zh_CN.GBK" 到profile文件中,变量的可以修改...

qimh
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部