main.pas

来自「《Delphi深度历险》附书源码 Delphi学习书本」· PAS 代码 · 共 32 行

unit main;

interface

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

type
  TMainForm = class(TForm)
    tvwCPl: TTreeView;
    pnlBottom: TPanel;
    lblDescription: TLabel;
    imgIcon: TImage;
    procedure tvwCPlChange(Sender: TObject; Node: TTreeNode);
    procedure tvwCPlDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure GetCPlInformation;
  public
    { Public declarations }
  end;
  
var
  MainForm: TMainForm;
  
implementation

{$R *.DFM}

//