unitordermsg.~pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

unit UnitOrderMsg;

interface

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

type
  //定义显示位置
  TMyPosRecord = record
    iLeft : integer;
    iTop  : integer;
  end;

  TFormOrderMsg = class(TForm)
    Panel:  TPanel;
    Bevel1: TBevel;
    Panel1: TPanel;
    BtnOK: TSpeedButton;
    BtnCancel: TSpeedButton;
    PanelMsg: TPanel;
    EditPara: TEdit;
    EditPara2: TEdit;
    EditPara3: TEdit;
    EditPara1: TEdit;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    MyPos  : TMyPosRecord;
    iBtnClick : integer;
  end;

var
  FormOrderMsg: TFormOrderMsg;

implementation

{$R *.dfm}

procedure TFormOrderMsg.BtnOKClick(Sender: TObject);
begin
  iBtnClick := 1;
  Close();
end;

procedure TFormOrderMsg.BtnCancelClick(Sender: TObject);
begin
  iBtnClick := 0;
  Close();
end;

procedure TFormOrderMsg.FormShow(Sender: TObject);
begin
  self.Left := MyPos.iLeft;
  self.Top  := MyPos.iTop;

  iBtnClick := 0;
end;

procedure TFormOrderMsg.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #27) then
  begin
    iBtnClick := 0;
    Close();
  end

  else if (Key = #13) then
  begin
    iBtnClick := 1;
    Close();
  end;

end;

end.