|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2023/3/20 13:59:41 |
标题: |
UI大师们,怎么让Form borderstyle设为none后带有阴影? |
浏览:536 |
|
加入我的收藏 |
楼主: |
不要告诉我这个,在win11上没用的: procedure CreateParams(var Params: TCreateParams); override; begin inherited; Params.WindowClass.Style := Params.WindowClass.Style or $20000; end;
----------------------------------------------
- |
作者: |
msfm (清洁工) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2023/3/20 22:13:35 |
1楼: |
SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
有用啊
----------------------------------------------
-
|
作者: |
|
2023/3/21 15:20:16 |
2楼: |
SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW); Params.WindowClass.Style := Params.WindowClass.Style or $20000; 没有任何效果
----------------------------------------------
-
|
|