uzzzgtb_xz.pas

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· PAS 代码 · 共 50 行

unit uZZZGTB_XZ;

interface

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

type
  TfrmZZZGTB_XZ = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    chkSW: TCheckBox;
    chkCG: TCheckBox;
    procedure chkSWClick(Sender: TObject);
    procedure chkCGClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmZZZGTB_XZ: TfrmZZZGTB_XZ;

implementation

{$R *.DFM}

procedure TfrmZZZGTB_XZ.chkSWClick(Sender: TObject);
begin
  chkCG.Checked := not TCheckBox(Sender).Checked;
end;

procedure TfrmZZZGTB_XZ.chkCGClick(Sender: TObject);
begin
  chkSW.Checked := not TCheckBox(Sender).Checked;
end;

procedure TfrmZZZGTB_XZ.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_BORDER;
end;


end.