E EdwardZhou Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #1 我的form的borderstyle为bsnone，主要是我不想要标题栏，可是我想允许调整form的大小，怎么办？
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #2 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height; end;
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height; end;
H hahali Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #4 同意QuickSliver的观点，似乎只有这样才能达到你所说的效果呀。 而无论formstyle的值为什么。 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE)); ClientHeight:=400; end; 同样能实现无标题栏。
同意QuickSliver的观点，似乎只有这样才能达到你所说的效果呀。 而无论formstyle的值为什么。 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE)); ClientHeight:=400; end; 同样能实现无标题栏。
C cyf_00002 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #5 哈 设置窗体为bssizable caption="" 最大化和最小化等都去掉
C cyf_00002 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #6 再用 SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height;
再用 SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height;
L lichway Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-25 #7 截WM_NCHITTEST 如： if loword(msg.LParam)= Left then msg.Result:= HTLEFT; 其它可以看help
