treeeditbase.pas

来自「飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7」· PAS 代码 · 共 43 行

unit TreeEditBase;

interface

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

type
  TTreeEditBaseForm = class(TForm)
    Panel1: TPanel;
    tvType: TTreeView;
    Panel2: TPanel;
    btnAddNew: TBitBtn;
    btnEdit: TBitBtn;
    btnDel: TBitBtn;
    btnOK: TBitBtn;
    btnClose: TBitBtn;
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    node1,node2,node3,node4,node5:TTreeNode;
    //aName:string;
  end;

var
  TreeEditBaseForm: TTreeEditBaseForm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TTreeEditBaseForm.btnCloseClick(Sender: TObject);
begin
  close;
end;

end.