basewin.pas

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

unit basewin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, Menus, ActnList, ImgList, XPMenu,
  TFlatButtonUnit, TFlatPanelUnit, StdCtrls;

type
  Tbasewin_frm = class(TForm)
    ImageList1: TImageList;
    ActionList1: TActionList;
    Panel1: TPanel;
    PopupMenu1: TPopupMenu;
    XPMenu1: TXPMenu;
    Panel10: TPanel;
    Panel11: TPanel;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  basewin_frm: Tbasewin_frm;

implementation


{$R *.dfm}

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

procedure Tbasewin_frm.FlatButton4Click(Sender: TObject);
begin
  close;  
end;

procedure Tbasewin_frm.FormCreate(Sender: TObject);
begin
  //label21.Caption :=self.Caption ;
  panel10.Caption :=self.Caption ;
end;

end.