moveu.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 61 行

unit moveU;

interface

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

type
  TmoveForm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  moveForm: TmoveForm;

implementation

{$R *.dfm}

procedure TmoveForm.FormCreate(Sender: TObject);
begin
     combobox1.Items.Clear;
     combobox2.Items.Clear;
end;

procedure TmoveForm.Timer1Timer(Sender: TObject);
begin
     if (combobox1.Text='') or (combobox2.Text='') then bitbtn1.Enabled:=false
     else bitbtn1.Enabled:=true;
end;

procedure TmoveForm.FormActivate(Sender: TObject);
begin
     combobox1.Text:='';
     combobox2.Text:='';
     timer1.Enabled:=true;
end;

procedure TmoveForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     timer1.Enabled:=false;
end;

end.