【结贴】弹出窗体关闭的问题？？**

huangyue

我要实现Show出来的窗体双击指定区域关闭，怎么来弄（如图）？？这个方法在delphic下是可以用的，放到平台不支持？？
procedure   dd(var   Msg:TMessage);message  M_NCLBUTTONDBLCLK;
  end;
var
  //Form1: TForm1;
  Bool:Boolean;
implementation

{$R *.dfm}
  procedure   TForm1.dd(var   Msg:   TMessage);
  begin
      Close;
  end;

zfang

平台不支持这样的用法。你可以自己在delphi封装后再拿到平台中来用用看。

huangyue

最初由 zfang 发布
[B]平台不支持这样的用法。你可以自己在delphi封装后再拿到平台中来用用看。 [/B]

它本身右键是自带的一个关闭功能（如图）。。。现在是想要写成双击的，平台不能写么？就一个关闭又要拿去封装过？？

lixy

不能发送消息，那个位置的点击事件又没有公布出来，不做控件怎么能控制呢？

zfang

关键是不支持。就跟不支持指针是一样的。

huangyue

嗯。好的，结。