prjform.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 64 行

unit PrjForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, ToolIntf, EditIntf, ExptIntf;

type
  TPrjInfoForm = class(TForm)
    TreeView1: TTreeView;
    LabelProject: TLabel;
    procedure TreeView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure UpdateTree;
  end;

var
  PrjInfoForm: TPrjInfoForm;

implementation

{$R *.DFM}

procedure TPrjInfoForm.UpdateTree;
var
  Node1: TTreeNode;
  I, nTot: Integer;
begin
  LabelProject.Caption := 'Project: ' +
    ToolServices.GetProjectName;
  with TreeView1.Items do
  begin
    Clear;
    // add units
    Node1 := AddChild (nil, 'Units');
    nTot := ToolServices.GetUnitCount;
    for I := 0 to nTot - 1 do
      AddChild (Node1,
        ToolServices.GetUnitName (I));

    // add forms
    Node1 := AddChild (nil, 'Forms');
    nTot := ToolServices.GetFormCount;
    for I := 0 to nTot - 1 do
      AddChild (Node1,
        ToolServices.GetFormName (I));
  end;
  TreeView1.FullExpand;
end;

procedure TPrjInfoForm.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Selected.Level = 1 then
  begin
    ToolServices.OpenFile (TreeView1.Selected.Text);
    ModalResult := mrOK;
  end;
end;

end.