unitfrmmain.pas

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· PAS 代码 · 共 46 行

unit unitFrmMain;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  keytp: string;
implementation
{$R *.DFM}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //是否按下ALT键，只接收字符
  if (shift = [ssShift]) and (key >= $41) and (key <= $5A) then
    begin
      keytp := keytp + chr(key);
      if keytp = 'FHJ' then
        begin
          showmessage('Just A Joke:)');
        end;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   close;
end;

end.