settime.pas

来自「轻轻松松背单词软件源码」· PAS 代码 · 共 53 行

unit Settime;

interface

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

type
  TFrmTime = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmTime: TFrmTime;

implementation
uses
  TopEdit;
{$R *.dfm}

procedure TFrmTime.TrackBar1Change(Sender: TObject);
begin
  Label3.Caption := '目前延时' + floattostr(TrackBar1.Position / 1000) + '秒';
end;

procedure TFrmTime.FormShow(Sender: TObject);
begin
  TrackBar1.Position := Reg.ReadInteger('Delay');
end;

procedure TFrmTime.BitBtn1Click(Sender: TObject);
begin
  Reg.WriteInteger('Delay', TrackBar1.Position);
  Interval := TrackBar1.Position;
  frmShow.Timer1.Interval := TrackBar1.Position;
end;

end.