unplan.pas

来自「一个电力的巡检项目,用到三个控件,可自己去下载,」· PAS 代码 · 共 55 行

unit UnPlan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin;

type
  TPlan_frm = class(TForm)
    Label16: TLabel;
    Edit16: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    ComboBox1: TComboBox;
    ToolBar3: TToolBar;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Plan_frm: TPlan_frm;

implementation

uses Undm;

{$R *.dfm}

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

end.