ucopy.pas

来自「安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询」· PAS 代码 · 共 52 行

unit UCopy;

interface

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

type
  Tfrm_copy = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_copy: Tfrm_copy;

implementation

{$R *.dfm}

procedure Tfrm_copy.CheckBox1Click(Sender: TObject);
begin
  checkbox2.Checked:=not checkbox1.Checked;
  edit1.Enabled:=checkbox2.Checked;
end;

procedure Tfrm_copy.CheckBox2Click(Sender: TObject);
begin
  checkbox1.Checked:=not checkbox2.Checked;
  edit1.Enabled:=checkbox2.Checked;
end;

procedure Tfrm_copy.Edit1Exit(Sender: TObject);
begin
  edit1.Text:=copy('00000000',1,8-length(trim(edit1.Text)))+trim(edit1.Text);
end;

end.