怎样点击任意键时 ,关闭无边框的窗体?

Question

这无边框的窗体,用来提示信息,想点击窗体或者旁边的时候 这窗体关闭

Answer 1

procedure TForm1.FormClick(Sender: TObject);
begin
   form1.close;
end;

Answer 2

好像要要创建窗体中加一个
Form1.KeyPreview := true;

Answer 3

Form1.KeyPreview := true; 
是的，窗体的这个属性必须要改为true，否则无效的。
把close放在keypress里就行了。这样按任意键（除了F开头的键，还有方向键等无效）就可以把窗体关闭了

Answer 4

可以实现,在窗体的onclick 里加入 close;