RzGroupBar
何分多层
procedure TForm1.FormCreate(Sender: TObject);
begin
RzGroup1.Items.Clear;
RzGroup1.Items.Add.Caption := 'Item0';
with RzGroup1.Items.Add do
begin
Caption := 'Item1';
IndentLevel:=;
Visible := False
end;
RzGroup1.Items[].OnClick := RzGroup1Items0Click;
end; procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
RzGroup1.Items[].Visible := not RzGroup1.Items[].Visible;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RzGroup1.Items.Clear;
RzGroup1.Items.Add.Caption := 'Item0';
with RzGroup1.Items.Add do
begin
Caption := 'Item1';
IndentLevel:=;
Visible := False
end;
RzGroup1.Items[].OnClick := RzGroup1Items0Click;
end; procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
RzGroup1.Items[].Visible := not RzGroup1.Items[].Visible;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RzGroup1.ShowItemSelection := True;
RzGroup1.Items.Clear;
RzGroup1.Items.Add.Caption := 'Item0';
with RzGroup1.Items.Add do
begin
Caption := 'Item1';
IndentLevel:=;
Visible := False
end;
RzGroup1.OnMouseDown := RzGroup1MouseDown
end; procedure TForm1.RzGroup1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Item: Integer;
begin
Item := RzGroup1.ItemAtPos(Point(X,Y));
if Item = then
begin
RzGroup1.Items[].Selected := True;
RzGroup1.Items[].Visible := not RzGroup1.Items[].Visible;
end
end;
RzGroupBar的更多相关文章
随机推荐
- 【NOIP2019模拟2019.11.13】旅行 && GDKOI2018 还念(二分答案+dij)
Description: 题解: 显然满足二分性. 并且每一条边要不选l要不选r. 二分的那条链肯定要选l. 考虑有两个人在走最短路,一个人一开始必须走二分的那条链,要求第一个人走的比第二个人快. 安 ...
- BZOJ 4421: [Cerc2015] Digit Division(思路)
传送门 解题思路 差点写树套树...可以发现如果几个数都能被\(m\)整除,那么这几个数拼起来也能被\(m\)整除.同理,如果一个数不能被\(m\)整除,那么它无论如何拆,都无法拆成若干个可以被\(m ...
- IE11“__doPostBack”未定义”
IE 11 下<asp:LinkButton> 点击出现 “__doPostBack”未定义” 在项目根目录 App_Browsers 下新建 浏览器文件(.browser),让其与IE1 ...
- System.IO.Path 文件名、路径、扩展名处理
string filePath =@"E:/Randy0528/中文目录/JustTest.rar"; 更改路径字符串的扩展名.System.IO.Path.ChangeExten ...
- 59、salesforce实现数据的批量处理
批处理,往自己的邮箱发一封邮件,批处理采用异步的处理方式处理数据,最多可以处理5000万条数据 global with sharing class MerchandiseBatch implement ...
- NTFS文件系统
一.Volume和Cluster 卷(Volume)和簇(Cluster)是NTFS用来描述物理磁盘的单位. 卷之间是相对独立的,卷的概念其实就是分区(Partition). 簇的引入是为了方便处理不 ...
- JVM系列文章合集
博客作者:纯洁的微笑 JVM系列(①):java类的加载机制 JVM系列(②):JVM内存结构 JVM系列(③):GC算法 垃圾收集器 JVM系列(④):jvm调优-命令大全(jps jstat jm ...
- activiti7业务表示Businesskey
启动流程实例时,指定的businesskey,就会在act_ru_execution #流程实例的执行表中存储businesskey. Businesskey:业务标识,通常为业务表的主键,业务标识和 ...
- 19-python基础-进制之间的转换
二进制-八进制-十进制-十六进制相互转换 1.十进制转为其他进制 # (1)十进制转二进制 a = 8 bin(a) --->>'0b1000' # (2)十进制转八进制 oct(a) - ...
- go 学习Printf
package main import "fmt" import "os" type point struct { x, y int } func main() ...