{ 功能:用键盘操作无边框窗体移动并关闭。 环境:delphi7+winxp3 通过测试 完成时间:18:09 2011-3-7 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender:TObject); procedure Button1Click(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; setkey:byte;//保存键盘数据 implementation {$R *.dfm} procedure TForm1.FormCreate(Sender:TObject); begin Form1.KeyPreview:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin close; end; //**********用键盘的方向键移动窗体****************** //要对窗体进行键盘操作时,不可以在窗体上放置可以获得焦点的控件,否则窗体无反应。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=VK_UP) then setkey:=1; if (Key=VK_Down) then setkey:=2; if (Key=VK_LEFT) then setkey:=3; if (Key=VK_RIGHT) then setkey:=4; if (Key=VK_ESCAPE) then Application.terminate;//用Esc键关闭窗体 Case setkey of 1:Form1.Top:=Form1.Top-10; 2:Form1.Top:=Form1.Top+10; 3:Form1.Left:=Form1.Left-10; 4:Form1.Left:=Form1.Left+10; end; end; end. 运行结果截图: