发现 TSplitter 在嵌套时不好用, 索性写了个替代品
代替 TSplitter 的 TDirPanel 类:unit DirPanel;
interface
uses
Classes, Controls, Forms, ExtCtrls;
type
TDirPanel = class(TCustomPanel)
private
FLine: TPan
原创
2021-05-01 00:19:08
298阅读
{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Cr
转载
2019-09-03 15:44:00
171阅读
2评论
CE递归遍历主界面控件 结果： TMainForm:MainForm -TSplitter:Splitter1 -TPanel:Panel1 --TAddresslist: TTreeviewWithScroll: THeaderControl: -TPanel:Panel4 --TLabel:La
转载
2018-06-21 22:51:00
636阅读
2评论
{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Cr
转载
2020-11-07 16:38:00
222阅读
2评论
测试: 1、在空白窗体上放 Memo1: TMemo; 和 Splitter1: TSplitter;2、再放 ImageList1: TImageList; 添加三个图标, 分别表示: 文件夹、文件、已打开的文件夹. 测试效果图: ://.cnblogs.com/del/archiv Read More
转载
2016-11-03 23:28:00
32阅读
2评论
