setupfrm1.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 61 行

unit setupfrm1;

interface

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

type
  TsetupForm1 = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setupForm1: TsetupForm1;

implementation

{$R *.DFM}

procedure TsetupForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   //setupForm1.Release;
end;

procedure TsetupForm1.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked then
    begin
    label3.Enabled:=true;
    label4.Enabled:=true;
    edit2.Enabled:=True;
    edit3.Enabled:=true;
    end
    else
    begin
    label3.Enabled:=false;
    label4.Enabled:=false;
    edit2.Enabled:=false;
    edit3.Enabled:=false;
    end;
end;

end.