哎! 还是自己试出来了:<br><br>在OnCreate事件里:<br>SetWindowLong(handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and NOT WS_CAPTION);<br>height:=height+1;<br><br>为什么要height+1呢? 因为不这样窗口就不刷新,reafresh也没用.不知道为什么.<br><br>BTW:不过我以前不是设置的这个风格常数,而是另外一个..管他呢,解决就行了.<br>
procedure TForm1.CreateParams(var Params: TCreateParams);<br>begin<br>inherited CreateParams(Params);<br>Params.Style:=(Params.Style and not WS_CAPTION and not WS_OVERLAPPED) or WS_DLGFRAME or WS_POPUP<br>end;<br>