main.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

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}

//