umain.pas

cxTreeList使用Demo

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmcxTreeList,
  cxTL;

type
  TfrmMain = class(TForm)
    Frame11: TFrame1;
    procedure Frame11sbtnUpClick(Sender: TObject);
    procedure Frame11sbtnDownClick(Sender: TObject);
    procedure Frame11sbtnDelClick(Sender: TObject);
    procedure Frame11sbtnCopyClick(Sender: TObject);
    procedure Frame11btnPClick(Sender: TObject);
    procedure Frame11btnBClick(Sender: TObject);
    procedure Frame11btnSubClick(Sender: TObject);
    procedure Frame11Button1Click(Sender: TObject);
    procedure Frame11Button2Click(Sender: TObject);
    procedure Frame11Button3Click(Sender: TObject);
    procedure Frame11Button4Click(Sender: TObject);
    procedure Frame11Button5Click(Sender: TObject);
    procedure Frame11Button6Click(Sender: TObject);
    procedure Frame11Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Frame11cxTreeList1Click(Sender: TObject);
  private
    { Private declarations }
    aNode: TcxTreeListNode;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.Frame11sbtnUpClick(Sender: TObject);
begin
  Frame11.sbtnUpClick(Sender);

end;

procedure TfrmMain.Frame11sbtnDownClick(Sender: TObject);
begin
  Frame11.sbtnDownClick(Sender);

end;

procedure TfrmMain.Frame11sbtnDelClick(Sender: TObject);
begin
  Frame11.sbtnDelClick(Sender);

end;

procedure TfrmMain.Frame11sbtnCopyClick(Sender: TObject);
begin
  Frame11.sbtnCopyClick(Sender);

end;

procedure TfrmMain.Frame11btnPClick(Sender: TObject);
begin
  Frame11.btnPClick(Sender);

end;

procedure TfrmMain.Frame11btnBClick(Sender: TObject);
begin
  Frame11.btnBClick(Sender);

end;

procedure TfrmMain.Frame11btnSubClick(Sender: TObject);
begin
  Frame11.btnSubClick(Sender);

end;

procedure TfrmMain.Frame11Button1Click(Sender: TObject);
begin
  Frame11.Button1Click(Sender);

end;

procedure TfrmMain.Frame11Button2Click(Sender: TObject);
begin
  Frame11.Button2Click(Sender);

end;

procedure TfrmMain.Frame11Button3Click(Sender: TObject);
begin
  Frame11.Button3Click(Sender);

end;

procedure TfrmMain.Frame11Button4Click(Sender: TObject);
begin
  Frame11.Button4Click(Sender);

end;

procedure TfrmMain.Frame11Button5Click(Sender: TObject);
begin
  Frame11.Button5Click(Sender);

end;

procedure TfrmMain.Frame11Button6Click(Sender: TObject);
begin
  Frame11.Button6Click(Sender);

end;

procedure TfrmMain.Frame11Button9Click(Sender: TObject);
begin
  Frame11.Button9Click(Sender);

end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Frame11.cdsList.LoadFromFile('TreeList.cds');
  Frame11.CreateCxTree;

end;

procedure TfrmMain.Frame11cxTreeList1Click(Sender: TObject);
begin
  Frame11.cxTreeList1Click(Sender);
  aNode:=Frame11.cxTreeList1.FocusedNode;

end;

end.