showmess.pas

来自「1. 发卡服务端：Server 项目文件：autojet.prj 2」· PAS 代码 · 共 42 行

unit ShowMess;

interface

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

type
  TFrm_ShowMess = class(TForm)
    LB1: TLabel;
    StatusBar1: TStatusBar;
    Btn_Cancel: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_ShowMess: TFrm_ShowMess;

implementation

{$R *.dfm}

procedure TFrm_ShowMess.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=VK_F12) or (key=VK_ESCAPE) then  close ;
end;

procedure TFrm_ShowMess.FormShow(Sender: TObject);
begin
  SetForegroundWindow(Handle);  // 当前的窗口聚焦
end;

end.