急噢 !!!!!!!!!!隐藏标题栏,(200分)

  • 主题发起人 主题发起人 aerobull
  • 开始时间 开始时间
A

aerobull

Unregistered / Unconfirmed
GUEST, unregistred user!
用<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SetWindowLong(G_HWND, GWL_STYLE, GetWindowLong(G_HWND, GWL_STYLE) and not WS_CAPTION); //取消 CAPITAL;<br>取消标题栏, 在2000,XP下没问题,<br>在98下就是隐藏不了。<br>
 
98下没问题啊
 
加一句<br>&nbsp; clientheight:=height;<br><br>之类的句子
 
难道你不能吧Form的Borderstyle设置成BsNone吗??
 
Borderstyle设成BsNone就行了吧
 
我是对其他的就用程序,比如记事本<br><br>
 
使用覆盖createparams的方法试试看<br>下面声明在窗体类的public中<br>procedure createparams(var params:Tcreateparams); override;<br><br><br>procedure TForm1.createparams(var params: Tcreateparams);<br>begin<br>inherited createparams(params);<br>with params do<br>&nbsp; begin<br>&nbsp; &nbsp; &nbsp;style:=style and (not ws_caption);<br>&nbsp; &nbsp; &nbsp;style:=style or ws_popup or ws_thickframe or ws_clipchildren;<br>&nbsp; end;<br>end;
 
我是对其他的就用程序,比如记事本
 
可能只有Windows2000 才能了吧!!
 
inherited createparams(params);<br>with params do<br>&nbsp; begin<br>&nbsp; &nbsp; &nbsp;style:=style and (not ws_caption);<br>&nbsp; &nbsp; &nbsp;style:=style or ws_popup or ws_thickframe or ws_clipchildren;<br>&nbsp; end;
 
!!!!!!!!<br>我是对其他的就用程序,比如记事本
 
晕死! <br>原来我的windows98不是 win32 模式的。<br><br>是98本身就不是 win32 模式的 ,还是有其他的解释, 请大家帮忙.<br>
 
特尔斐, :<br><br>你的win98是什么版本的?
 
我用过几个版本都行,现在的是第二版。<br>我怀疑你的不行的原因是没有刷新,<br>在98下要设置一下窗体的Height等于ClientHeight才行的。
 
可能是由于98的驱动或字体不支持的缘故!
 
特尔斐, :<br><br>我的这个操作是要对其他的应用程序的。不是自己的程序。<br>所以:<br>在98下要设置一下窗体的Height等于ClientHeight才行的。<br>不适用
 
The SetWindowLong function changes an attribute of the specified window. The function also sets the 32-bit (long) value at the specified offset into the extra window memory.<br><br>Syntax<br><br>LONG SetWindowLong(HWND hWnd, int nIndex, LONG dwNewLong);<br><br>Parameters<br><br>hWnd<br>[in] <br>Handle to the window and, indirectly, the class to which the window belongs.<br><br>Windows 95/98/Me: The SetWindowLong function may fail if the window specified by the hWnd parameter does not belong to the same process as the calling thread.<br><br>..............................................................................................................................................................
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
757
import
I
后退
顶部