main_yggl_zhgl_jlczform.~pas

来自「校园综合管理系统」· ~PAS 代码 · 共 95 行

unit main_yggl_zhgl_jlczform;

interface

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

type
  Tmain_yggl_zhgl_jlcz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    RG2: TRadioGroup;
    procedure RadioGroup1Click(Sender: TObject);
    procedure RG2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_yggl_zhgl_jlcz: Tmain_yggl_zhgl_jlcz;

implementation

{$R *.DFM}

procedure Tmain_yggl_zhgl_jlcz.RadioGroup1Click(Sender: TObject);
begin
   if (main_yggl_zhgl_jlcz.RadioGroup1.Controls[0] as tradiobutton).checked then
      begin
        label1.Enabled :=true;
        edit1.Enabled :=true;
        edit1.Color :=clinfobk;
        label2.Enabled :=false;
        edit2.Enabled :=false;
        edit2.Color:=clmenu;
        edit1.SetFocus;
      end
      else
        begin
         label1.Enabled :=false;
         edit1.Enabled :=false;
         edit1.Color :=clmenu;
         label2.Enabled :=true;
         edit2.Enabled :=true;
         edit2.Color :=clinfobk;
         edit2.SetFocus ;
        end;
end;

procedure Tmain_yggl_zhgl_jlcz.RG2Click(Sender: TObject);
begin
   if (main_yggl_zhgl_jlcz.RG2.Controls[0] as tradiobutton).checked then
      begin
        label1.Enabled :=true;
        edit1.Enabled :=true;
        edit1.Color :=clinfobk;
        label2.Enabled :=false;
        edit2.Enabled :=false;
        edit2.Color:=clmenu;
        edit1.SetFocus;
      end
      else
        begin
         label1.Enabled :=false;
         edit1.Enabled :=false;
         edit1.Color :=clmenu;
         label2.Enabled :=true;
         edit2.Enabled :=true;
         edit2.Color :=clinfobk;
         edit2.SetFocus ;
        end;
end;

procedure Tmain_yggl_zhgl_jlcz.FormShow(Sender: TObject);
begin
    (radiogroup1.Controls[0] as tradiobutton).checked:=true;
  (RG2.Controls[0] as tradiobutton).checked:=true;
    edit1.Text:='';
    edit1.SetFocus;
    edit2.Text:='';
end;

end.