文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 254
阅读 6
收藏 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获取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

没有更多内容

加载失败,请刷新页面

加载更多

arts-week10

Algorithm 905. Sort Array By Parity - LeetCode Review Who’s Afraid of the Big Bad Preloader? 一文读懂前端缓存 一个网络请求3个步骤:请求,处理,响应,而前端缓存主要在请求处响应这两步...

yysue
今天
4
0
00.编译OpenJDK-8u40的整个过程

前言 历经2天的折腾总算把OpenJDK给编译成功了,要说为啥搞这个,还得从面试说起,最近出去面试经常被问到JVM的相关东西,总感觉自己以前学的太浅薄,所以回来就打算深入学习,目标把《深入理...

凌晨一点
今天
5
0
python: 一些关于元组的碎碎念

初始化元组的时候,尤其是元组里面只有一个元素的时候,会出现一些很蛋疼的情况: def checkContentAndType(obj): print(obj) print(type(obj))if __name__=="__main__": tu...

Oh_really
昨天
6
2
jvm crash分析工具

介绍一款非常好用的jvm crash分析工具,当jvm挂掉时,会产生hs_err_pid.log。里面记录了jvm当时的运行状态以及错误信息,但是内容量比较庞大,不好分析。所以我们要借助工具来帮我们。 Cras...

xpbob
昨天
162
0
Qt编写自定义控件属性设计器

以前做.NET开发中,.NET直接就集成了属性设计器,VS不愧是宇宙第一IDE,你能够想到的都给你封装好了,用起来不要太爽!因为项目需要自从全面转Qt开发已经6年有余,在工业控制领域,有一些应用...

飞扬青云
昨天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部