【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:MC_CWXTSZ.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit MC_CWXTSZ;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Buttons, ExtCtrls;
    
    type
      TCWXTSZ = class(TForm)
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        Panel1: TPanel;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn4Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CWXTSZ: TCWXTSZ;
    
    implementation
    
    uses MC_CSHBZFY, MC_QTFYCSH, MC_KMSD, MC_CNFCSH;
    
    {$R *.DFM}
    
    procedure TCWXTSZ.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         CWXTSZ.Release;
         CWXTSZ:=Nil;
    end;
    
    procedure TCWXTSZ.BitBtn4Click(Sender: TObject);
    begin
         Close;
    end;
    
    procedure TCWXTSZ.BitBtn1Click(Sender: TObject);
    begin
         if not Assigned(CSHBZFY) then
            begin
                 CSHBZFY:=TCSHBZFY.Create(Self);
                 CSHBZFY.showModal;
            end;
    end;
    
    procedure TCWXTSZ.BitBtn2Click(Sender: TObject);
    begin
         if Not Assigned(QTFYCSH) then
            begin
                 QTFYCSH:=TQTFYCSH.Create(Self);
                 QTFYCSH.ShowModal;
            end;
    end;
    
    procedure TCWXTSZ.BitBtn3Click(Sender: TObject);
    begin
         if not Assigned(KMSD) then
            begin
                 KMSD:=TKMSD.Create(Self);
                 KMSD.showModal;
            end;
    end;
    
    procedure TCWXTSZ.BitBtn5Click(Sender: TObject);
    begin
         if not Assigned(CNFCSH) then
            begin
                 CNFCSH:=TCNFCSH.Create(Self);
                 CNFCSH.ShowModal;
            end;
    end;
    
    end.
    

上一篇：MC_CWBSJDY.pas
下一篇：左右上下划动屏幕切换图片显示PushImageWithUItouch_iso源代码_SO源代码程序.zip