enterform.pas

来自「DBchart的高级使用」· PAS 代码 · 共 52 行

unit enterform;

interface

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

type
  Tf_enter = class(TForm)
    Panel1: TPanel;
    GradBtn1: TGradBtn;
    GradBtn2: TGradBtn;
    GradBtn3: TGradBtn;
    Label1: TLabel;
    procedure GradBtn1Click(Sender: TObject);
    procedure GradBtn2Click(Sender: TObject);
    procedure GradBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_enter: Tf_enter;

implementation
uses basic;
{$R *.DFM}

procedure Tf_enter.GradBtn1Click(Sender: TObject);
begin
  f_basic.electtype:=0;
  f_basic.show;
  close;
end;

procedure Tf_enter.GradBtn2Click(Sender: TObject);
begin
  f_basic.electtype:=1;
  f_basic.show;
  close;
end;

procedure Tf_enter.GradBtn3Click(Sender: TObject);
begin
  close;
end;

end.