basetreewin.pas

来自「企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载」· PAS 代码 · 共 50 行

unit basetreewin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, Menus, ActnList, ImgList,
  TreeViewCP;

type
  Tbasetreewin_form = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ActionList1: TActionList;
    Panel1: TPanel;
    PopupMenu1: TPopupMenu;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    ImageList2: TImageList;
    TreeViewCP1: TTreeViewCP;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  basetreewin_form: Tbasetreewin_form;

implementation

uses datashare;


{$R *.dfm}

procedure Tbasetreewin_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

end.