setunit.pas

发射台 控制台 dephi编写 大家可以随便可看看, 可以做dephi入门实例学习

unit SetUnit;

interface

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

type
  TFrmSet = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    OldPW: TMaskEdit;
    NewPW: TMaskEdit;
    ReNewPW: TMaskEdit;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSet: TFrmSet;

implementation
uses MainUnit;
{$R *.dfm}

procedure TFrmSet.Button1Click(Sender: TObject);
var
  tmpList : TStrings;
begin
  if self.OldPW.Text <> FrmMain.pw then
    begin
      ShowMessage('旧密码输入不正确!');
      exit;
    end;
  if self.NewPW.Text <> self.ReNewPW.Text then
    begin
      ShowMessage('新密码两次输入不相同!');
      exit;
    end;
  FrmMain.pw := self.NewPW.Text;
  tmpList := TStringList.Create;
  tmpList.Add(FrmMain.pw);
  tmpList.Add(IntToStr(FrmMain.SleepTimeLimit));
  tmpList.SaveToFile(FrmMain.SetFileName);
  tmpList.Free;
  FrmMain.Timer1.Enabled := true;
  self.Close;
end;

procedure TFrmSet.Button2Click(Sender: TObject);
var
  tmpList : TStrings;
begin
  FrmMain.SleepTimeLimit := StrToInt(self.ComboBox1.Text) * 1000 * 60;
  FrmMain.Timer1.Interval := FrmMain.SleepTimeLimit;
  tmpList := TStringList.Create;
  tmpList.Add(FrmMain.pw);
  tmpList.Add(IntToStr(FrmMain.SleepTimeLimit));
  tmpList.SaveToFile(FrmMain.SetFileName);
  tmpList.Free;
  FrmMain.Timer1.Enabled := true;
  self.Close;
end;

procedure TFrmSet.FormShow(Sender: TObject);
var
  i : integer;
begin
  i := FrmMain.SleepTimeLimit div 60000;
  self.ComboBox1.ItemIndex := FrmMain.FindSInSList(IntToStr(i), self.ComboBox1.Items);
  self.OldPW.Text := '';
  self.NewPW.Text := '';
  self.ReNewPW.Text := '';
  self.OldPW.SetFocus;
  self.FormStyle := fsStayOnTop;
end;

procedure TFrmSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    FrmMain.Timer1.Enabled := true;
end;

end.