如何让Form有边框,但是没有标题栏,BorderStyle设成bsNone虽然没有标题栏但也会没有边框?(100分)

  • 主题发起人 主题发起人 Delphi7.net
  • 开始时间 开始时间
D

Delphi7.net

Unregistered / Unconfirmed
GUEST, unregistred user!
重载CreateParams方法!

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
Style := Style or (WS_BORDER or WS_THICKFRAME);
end;
 
呀!这么快?
 
建议你好好看看Style以及StyleEx等如何设定。
 
用SetWindowLong也可以
 

Similar threads

D
回复
0
查看
958
DelphiTeacher的专栏
D
D
回复
0
查看
892
DelphiTeacher的专栏
D
D
回复
0
查看
972
DelphiTeacher的专栏
D
D
回复
0
查看
798
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部