unit1.pas

来自「Delphi高级界面特效制作百例源代码,这是随书源代码部分,不知可否」· PAS 代码 · 共 45 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    TreeView1: TTreeView;
    Memo1: TMemo;
    Splitter2: TSplitter;
    Memo2: TMemo;
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//当选中的节点进行了改变响应
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
     //先把原先的文本清除
     Memo1.Clear;
     Memo2.Clear;

     //显示与选中节点相关的内容
     Memo1.Lines.Add('您选中了“'+TreeView1.Selected.Text+'”节点。');
     Memo2.Lines.Add('选中节点是第 '+IntToStr(TreeView1.Selected.Level+1)+' 层。');
end;

end.