TForm窗口无法移动

[tony2278]

一个TForm窗口无法移动，弹出的时候就显示在中间。请问在 Object Inspector 中是否有属性可以设置窗体可以被移动呢？

//class TfrmFind : public TForm

TfrmFindTA *frmFind;

TfrmFind *frm = new TfrmFind(this);
frm->ShowModal();
delete frm;

谢谢先啦！

[tony2278]

//class TfrmFind : public TForm

TfrmFind *frmFind;

TfrmFind *frm = new TfrmFind(this);
frm->ShowModal();
delete frm;

[缘中人]

应该是没有属性设置，通过截获消息TWMNCHITTEST进行处理的。
http://msdn.iteye.com/blog/177851

[tony2278]

//DELPHI禁止窗体移动(转)
//Delphi通常我们都是用拦截WM_NCHITTEST消息来移动无标题的窗口,
//介绍这个用法的文章很多,可是用WM_NCHITTEST同样能禁止窗口移动. 

  TForm1 = class(TForm) 
  private 
    { Private declarations } 
    procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST; 

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST); 
begin 
  inherited; 
  if Msg.Result = HTCAPTION then 
    Msg.Result := 0 
end;

如果现在我要通过拦截WM_NCHITTEST消息来移动Form ，上面的代码应该怎样该呢？

[缘中人]

BorderStyle设置为bsNone
或Enabled = false
窗体也就不能移动了

[tony2278]

BorderStyle设置为bsSingle了
Enabled = True

//Enabled = False的话程序运行时会提示 cannot make a visible Form

[开始领悟]

应该是可以移动的吧，楼主跟踪一下

[巴巴阿里]

估计是有其他窗体的FormStyle设为了fsStayOnTop，导致冲突。