如何使无标题窗口允许用户自由调整Width?(100分)

  • 主题发起人 主题发起人 famu
  • 开始时间 开始时间
F

famu

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥大姐小妹妹们,帮帮我吧。
 
覆盖 TForm.CreateParams(var Params: TCreateParams)方法
在其中写入
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style and not ( WS_CAPTION );
end;

end;

(只能是MDI子窗口才有效)
 
TForm.CreateParams(var Params: TCreateParams);override;
在其中写入
先设Form为无标题窗口
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or WS_THICKFRAME
end;
end;
其它类型也成
 
楼上厉害![:)]
 
那如何只允许改变其Width呢,我不希望能够改变Height
 
Form有个属性Constraints,你限制一下就行了...
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部