mc_sss.~pas

来自「1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2」· ~PAS 代码 · 共 55 行

unit MC_SSS;

interface

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

type
  TSSS = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    BitBtn4: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SSS: TSSS;

implementation

uses MC_DY_XQ;

{$R *.DFM}

procedure TSSS.BitBtn4Click(Sender: TObject);
begin
     Close;
end;

procedure TSSS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     SSS.Release;
     SSS:=Nil;
end;

procedure TSSS.BitBtn1Click(Sender: TObject);
begin
     if Not Assigned(DY_XQ) then
        begin
             DY_XQ:=TDY_XQ.Create(Self);
             DY_XQ.ShowModal;
        end;
end;

end.