|
procedure TForm1.Button5Click(Sender: TObject);
var fhr :Thandle; begin fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4); setwindowrgn(panel1.handle,fhr,true); end; Panel的BevelInner 及 BevelOuter 最好设成 bvNone |
墨衍会员
·
AI 创作全网分发
墨衍智能分发
本文由作者通过墨衍一键同步至各平台
1分发平台
5.4k累计阅读
5.4k平均单平台
已同步平台
CSDN
微信公众号
微博
知乎
掘金
百家号
博客园
抖音
小红书
你的文章也可以这样分发
墨衍会员 ¥399起/年,写一次发全网
我也要 →
码龄18年
|
procedure TForm1.Button5Click(Sender: TObject);
var fhr :Thandle; begin fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4); setwindowrgn(panel1.handle,fhr,true); end; Panel的BevelInner 及 BevelOuter 最好设成 bvNone |
SmartEffects VCL 3.61修炼手册:轻量实现Delphi现代UI动效
在桌面应用开发中,界面观感直接影响用户对软件专业度的判断。对于长期承载业务系统的Delphi VCL框架而言,原生控件的平面化外观和生硬的窗口切换,往往成为产品体验的短板。SmartEffects VCL正是一套面向VCL组件库的视觉增强方案,它通过封装窗体阴影、淡入淡出、圆角裁剪以及控件级补间动画等效果,让开发者无需重写控件代码或引入重型皮肤框架,即可为工具软件、管理后台及工控上位机注入接近Web风格的光影与流畅过渡。其核心价值在于组件化的部署方式:设计期拖拽、属性配置即所见即所得,既规避了传统GDI+自
Delphi 中制作几何形状的窗体 圆角
制作几何形状的窗体 圆角 用delphi窗口进行圆角不再是问题了
Delphi图片圆角显示
Delphi处理图片以圆角的形式显示
delphi透明panel组件或者制作方法
//透明Panel控件 unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gsBlackness, gsDstInvert,...
简单的Delphi控件-圆角Panel
2005年5月18日, 发布于: http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!225.entry很简单的做了一下.procedure TRoundRectPanel.paint;begin Canvas.Pen.Color:= FBorderColor; Canvas.RoundRect(1,1,Width-1, Heigh
Delphi画圆角Panel
2019独角兽企业重金招聘Python工程师标准>>> ...
圆角Panel
How to show a Tpanel with roundrect shape Title: How to show a Tpanel with roundrect shape procedure TForm1.FormCreate(Sender: TObject);
Delphi 圆形进度条
重拾DC项目,复习Delphi技术,项目需要显示资源下载进度,美工设计为圆形进度,遂研究其,并参考其它实现方法,以GDI+绘制实现效果,传其源码及Demo、效果图
Delphi圆形进度条—源码,
Delphi 圆形进度条 源码
DELPHI渐变颜色的PANEL控件
DELPHI渐变颜色的PANEL控件,可以学习一下如果做DELPHI控件!
DELPHI美化界面[转载]
手头的项目做的差不多了,交给客户,结果给出的结论是界面太难看了,至少要做成像QQ类似的界面。(目前是QQ2009界面确实还是不错的,本人也非常喜欢)。 1.透明问题。 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比。(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件。所有控件都是不透明的,并且大部分控件就是...
Delphi 把Form界面设置有弧度的矩形
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, ExtCtrls, StdCtrls; 8 9 type 10 TForm1 = ...
Delphi美化界面 转载
手头的项目做的差不多了,交给客户,结果给出的结论是界面太难看了,至少要做成像QQ类似的界面。(目前是QQ2009界面确实还是不错的,本人也非常喜欢)。 1.透明问题。 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比。(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件。所有控件都是不透明的,并且大部分控件就是灰色的,...
Delphi 生成圆形panel的方法
procedure Tfrm_powergroup.BtnDeleteRecordClick(Sender: TObject); var fhr :Thandle; begin fhr := CreateRoundRectRgn(0, 0, pan_progress.Width -5, pan_progress.height -5, pan_progress.Width-5, pan_progress.Width-5); SetWindowRgn(pan_progress.Handle, fhr, true
DELPHI美化界面
1.透明问题。 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比。(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件。所有控件都是不透明的,并且大部分控件就是灰色的,一放到窗体上,就像一块膏药一样贴在上面。即使界面上放几副图片也难以和控件的那种灰灰的颜色融合起来。所以,一直在想QQ是怎么开发的。还是挺佩服腾讯那帮家伙的。
873

被折叠的 条评论
为什么被折叠?



