u_setcurve.pas

对绘图工作者

unit U_setCurve;

interface

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

type
  Tf_setCurve = class(TForm)
    e_curveNum: TEdit;
    Label1: TLabel;
    b_ok: TBitBtn;
    Label2: TLabel;
    e_num: TEdit;
    procedure b_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_setCurve: Tf_setCurve;

implementation

{$R *.dfm}

procedure Tf_setCurve.b_okClick(Sender: TObject);
begin
  if strtoint(e_curveNum.Text )<0 then   //最小值
      e_curveNum.Text:= '0'
  else if  strtoint(e_curveNum.Text)>29998 then //最大值
      e_curveNum.Text:= '29998';

  if strtoint(e_num.Text)<50 then   //最小值
      e_num.Text:= '50'
  else if  strtoint(e_num.Text)>30000 then //最大值
      e_num.Text:= '30000';

  f_setCurve.Hide;//隐藏
end;

end.