unit1.pas

键盘帮助助手,可以帮助编程的朋友们一些忙

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
     DraopFlag:Boolean;
    RightDown:boolean;
    FLeft,FTop:integer;
  const
  ctrl_A = 1;     //Ctrl+A 组合键的ASCII值
  ctrl_Z = 26;    //Ctrl+Z组合键的ASCII值
  FunctionKeys: array [vk_f1 .. vk_f12] of string[3] =
    ('F1', 'F2', 'F3', 'F4', 'F5', 'F6', 'F7', 'F8',
     'F9', 'F10', 'F11', 'F12');
/////////////////////////////////


implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  s:string;
begin
   label1.Caption := inttostr(key);
   s := '';
  //显示组合键状态
  if ssShift  in Shift then s := s + 'Shift+';
  if ssAlt    in Shift then s := s + 'Alt+';
  if ssCtrl   in Shift then s := s + 'Ctrl+';

  if Length(s) > 0 then
    Delete(s, Length(s), 1); //清除最后一个＋号
  label2.Caption := s;

  if Key in [vk_f1 .. vk_f12] then
    label3.Caption := FunctionKeys[Key]
  else
    label3.Caption := '';  //删除旧的字符

  if Key = vk_space then
    Key := 0;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) in [ctrl_A .. ctrl_Z] then
    label3.Caption := '^' + Chr(Ord(Key) + Ord('A') - 1)
  else
    label3.Caption := Key;
  label1.Caption := IntToStr(Ord(Key));
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  label1.Caption := '';
  label2.Caption := '';
  label3.Caption := '';
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbleft then
  begin
    DraopFlag:=True;
    FLeft:=X;
    FTop:=Y;
  end
  else RightDown:=True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if DraopFlag=True then
  begin
    Left:=Left+X-FLeft;
    Top:=Top+Y-FTop;
  end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbleft then
  begin
    DraopFlag:=False;
  end
  else
  begin
    RightDown:=False;
    ShowWindow(Handle,SW_SHOWMINIMIZED);
  end;

end;

end.