Z zxb200 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #3 在子窗口的新建事件中寫代碼， 設子窗口為Form2, procedure TForm2.FormCreate(Sender: TObject); begin Setwindowlong(handle,GWL_STYLE,Getwindowlong(handle,GWL_STYLE) and not WS_CAPTION); end;
在子窗口的新建事件中寫代碼， 設子窗口為Form2, procedure TForm2.FormCreate(Sender: TObject); begin Setwindowlong(handle,GWL_STYLE,Getwindowlong(handle,GWL_STYLE) and not WS_CAPTION); end;
L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #4 大侠，我试了一下，这种方法有点呆板，拉动时会出现退迹， 不知有没有其它方法，谢谢大侠了； 请大侠多费心一下！！
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #6 将BorderIcons下的几个属性全部设为False
S shangshang Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #7 你是不是把它设成对话框窗体了，改成标准窗体再BorderStyle设为bsNone，时时
D D影子D Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #8 子窗体名字搞错了！查查看 form2.borderstyle:=bsnone;
S shenloqi Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #10 那么你就重载Form.CreateParams方法把，设定Style与ExStyle。
Z zxb200 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-26 #11 這樣看看,重載窗體的createparams事件： private procedure CreateParams(var Params: TCreateParams); override; procedure tform2.CreateParams(var Params: TCreateParams); begin inherited createparams(params); params.Style:=params.Style and (not WS_CAPTION); end;
這樣看看,重載窗體的createparams事件： private procedure CreateParams(var Params: TCreateParams); override; procedure tform2.CreateParams(var Params: TCreateParams); begin inherited createparams(params); params.Style:=params.Style and (not WS_CAPTION); end;
