我在2000下这样就去掉了, 但放到98下,却还在,高手们看看怎么办? style := GetWindowLong(G_H, GWL_STYLE);
style := style And Not WS_CAPTION;
style := style And Not WS_BORDER;
style := style And Not WS_POPUP;
style := style And Not WS_OVERLAPPED;
SetWindowLong(G_H, GWL_STYLE, style);
style := style And Not WS_CAPTION;
style := style And Not WS_BORDER;
style := style And Not WS_POPUP;
style := style And Not WS_OVERLAPPED;
SetWindowLong(G_H, GWL_STYLE, style);
style := style And Not WS_CAPTION;
SetWindowLong(G_H, GWL_STYLE, style);试试看:)
这两个函数的说明可以查阅以下MSDN
style:=GetWindowLong(Handle,gwl_Style);
If (style and ws_Caption)=ws_Caption then
Begin
Case BorderStyle of
bsSingle,
bsSizeable : SetWindowLong(G_H,gwl_Style,style and
(Not(ws_Caption)) or ws_border);
bsDialog : SetWindowLong(G_H,gwl_Style,style and
(Not(ws_Caption)) or ds_modalframe or ws_dlgframe);
End;
End;
在2000下可以, 在98下不行