Unit2.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

  1. unit Unit2;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls;
  6. type
  7.   TForm2 = class(TForm)
  8.     Button1: TButton;
  9.     Button2: TButton;
  10.     Edit1: TEdit;
  11.     Edit2: TEdit;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     procedure Edit1Change(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20. var Form2: TForm2;
  21. implementation
  22. {$R *.dfm}
  23. procedure TForm2.Edit1Change(Sender: TObject);
  24. begin
  25.   Button1.Enabled := (Edit1.Text<>'') and (Edit2.Text<>'');
  26. end;
  27. end.