用键盘方向键移动无边框窗体并用Esc键关闭窗体

本文介绍了一个使用Delphi7实现的无边框窗体应用案例，该窗体可通过键盘方向键进行移动，并支持使用Esc键关闭。文中提供了完整的单元代码，包括窗体创建、按钮点击响应及键盘事件处理等关键部分。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{ 功能：用键盘操作无边框窗体移动并关闭。环境：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.

运行结果截图：