statusfm.pas

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

unit StatuSFM;

interface

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

type
  Tkeysetform = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Bevel1: TBevel;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Edit_right: TEdit;
    Edit_middle: TEdit;
    Edit_left: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  keysetform: Tkeysetform;

implementation
uses menu;
{$R *.DFM}

procedure Tkeysetform.Button1Click(Sender: TObject);
begin
if setkeyset(edit_left.text,edit_middle.text,edit_right.text)=1 then
Application.MessageBox('状态键设置成功！','消息',MB_ICONINFORMATION)
else
Application.MessageBox('状态键设置失败！','消息',MB_ICONINFORMATION);
 // sjysxx.RadioButton1.Caption:=edit_left.Text;
  //sjysxx.RadioButton2.Caption:=edit_middle.Text;
  //sjysxx.RadioButton3.Caption:=edit_right.Text;

end;

procedure Tkeysetform.FormCreate(Sender: TObject);
var
  ls,ms,rs:string;
begin
//if not assigned(sjysxx) then
 // Application.CreateForm(Tsjysxx, sjysxx);
  getkeyset(ls,ms,rs);//edit_left.text,edit_middle.text,edit_right.text);
  edit_left.text:=ls;
  edit_middle.text:=ms;
  edit_right.text:=rs;
end;

procedure Tkeysetform.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tkeysetform.FormActivate(Sender: TObject);
begin
 self.Height:=188;
self.Width:=286;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);
end;

procedure Tkeysetform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
keysetform :=nil ;
end;

procedure Tkeysetform.FormPaint(Sender: TObject);
begin
 self.Height:=188;
self.Width:=286;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);

end;

procedure Tkeysetform.FormResize(Sender: TObject);
begin
 self.Height:=188;
self.Width:=286;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);

end;

end.