click_time_pas.~pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit click_time_pas;

interface

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

type
  Tclick_time = class(TForm)
    Panel1: TPanel;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    GroupBox1: TGroupBox;
    edit1: TRxSpinEdit;
    Label2: TLabel;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  click_time: Tclick_time;

implementation

uses menu,FileCtrl,IniFiles;

{$R *.DFM}

procedure Tclick_time.FormShow(Sender: TObject);
var
inif:tinifile;
temp,path,filename:string;
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  height:=158;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=248;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=201;//round((screen.Width-Width)/2);
  top:=165;//round((screen.height-self.height)/2);
  end
  else
  begin
  self.width:=242;
  self.Height:=157;
  end;
filename:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
if not fileexists(filename) then
filename:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
else filename:=extractfiledir(application.exename)+'\hdxgxt.ini';
inif:=TInifile.Create(filename);
temp:=inif.ReadString('time','value',temp);
if temp='' then
edit1.Text:='5'
else
edit1.Text:=temp;
edit1.MaxValue:=200;
edit1.MinValue:=1;
edit1.SetFocus ;
end;
procedure Tclick_time.OKBtnClick(Sender: TObject);
var
inif:tinifile;
temp,path,filename:string;
begin
if edit1.Text='' then 
begin 
Application.MessageBox('請輸入大於零的整數！','消息',MB_ICONINFORMATION);
exit;
end;
if trim(edit1.text)<>''then 
begin
try
 if strtoint(edit1.text)<=0 then  
 begin
 Application.MessageBox('請輸入大於零的整數！','消息',MB_ICONINFORMATION);
 edit1.SetFocus ;
 edit1.Text:='';
 exit;
 end;
except
on E: EConvertError do
     begin
       Application.MessageBox('請輸入整數！','消息',MB_ICONINFORMATION);
       edit1.text:='';
       edit1.SetFocus;
       exit;
     end;
end;
end;
filename:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
if not fileexists(filename) then
filename:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
else filename:=extractfiledir(application.exename)+'\hdxgxt.ini';
inif:=TInifile.Create(filename);
inif.WriteString('time','value',edit1.Text );
inif.free;
close; 
end;

procedure Tclick_time.CancelBtnClick(Sender: TObject);
begin
close;
end;

procedure Tclick_time.Button1Click(Sender: TObject);
begin
Application.MessageBox(pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);


end;

procedure Tclick_time.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in ['0'..'9'])) then
     begin
     key:=#0;
     end;

end;

end.