用Delphi画圆角Panel的方法

最新推荐文章于 2020-12-03 17:55:38 发布
最新推荐文章于 2020-12-03 17:55:38 发布
阅读量5.2k 收藏 2
点赞数
分类专栏： Form Graphic 文章标签： delphi

 

用Delphi画圆角Panel的方法

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

iseekcode
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi图片圆角显示
05-17
Delphi处理图片以圆角的形式显示
delphi透明panel组件或者制作方法
dkopg24406的专栏
08-13 1165
//透明Panel控件 unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gsBlackness, gsDstInvert,...
Delphi画圆角Panel
weixin_34122810的博客
06-13 138
2019独角兽企业重金招聘Python工程师标准>>> ...
简单的Delphi控件-圆角Panel
D_yang的烂摊子
08-21 3202
 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
08-17
Delphi 用的透明panel, 不遮挡下面 可以当控件容器, 控制控件的位置
圆角_圆角_DELPHI圆角按钮_
09-28
使用Canvas对象的Arc方法画出四个半圆，覆盖到按钮的四角，从而形成圆角效果。别忘了在OnResize事件中更新画布大小以保持圆角的正确显示。 2. **使用图形API**： Delphi中的Graphics单元提供了大量的图形函数，如...
Delphi Panel 上画直线的Demo
03-09
在Panel上画直线，我们需要使用Canvas的MoveTo和LineTo方法。 2. **MoveTo方法**：此方法用于设置当前画笔位置。例如，`Canvas.MoveTo(X1, Y1)`将画笔移动到坐标(X1, Y1)。 3. **LineTo方法**：从当前画笔位置画一...
Delphi使用OpenGL2d绘图之画图片Bmp的方法
09-04
在Delphi中使用OpenGL2d进行绘图时，画图片Bmp的方法涉及到多个步骤和关键概念。首先，OpenGL是一个开放的图形库，用于在各种操作系统上生成高质量的2D和3D图形。在Delphi中，为了使用OpenGL，通常需要额外引入Gl....
Delphi 中制作几何形状的窗体 圆角
01-29
制作几何形状的窗体 圆角 用delphi窗口进行圆角不再是问题了
DELPHI渐变颜色的PANEL控件
11-02
DELPHI渐变颜色的PANEL控件，可以学习一下如果做DELPHI控件！
Delphi 动态创建Panel
03-24
Delphi 动态创建panel，在panel上再创建TRzBackground，显示背景，创建TBmpButton，有鼠标移动事件和单击事件
delphi 真正透明panel ，使用简单
05-18
在标题"delphi 真正透明panel，使用简单"中提到的技术，是关于如何在Delphi7中实现一个具有真正透明效果的Panel。这种技术使得Panel可以透明地显示在其下方的组件或背景，为用户界面增添更多设计可能性。 描述中的...
Delphi下OpenGL2d绘图之画线的方法
09-04
本文将详细介绍如何在Delphi下利用OpenGL2D实现画线的方法。首先，理解OpenGL的基本绘图原理是必要的，它是一个基于向量图形的编程接口，用于在各种设备上创建二维和三维图形。 在Delphi中，画线和画点的主要区别...
delphi tpanel 内凹效果_老师傅把空调出风口加长了1米，效果美爆了!
weixin_33237865的博客
12-03 1868
现在很多人家装修的时候都会安装中央空调,中央空调一般有出风口、回风口、检修口。出风口一般在侧立面,回风口和检修口一般在下平面,大多数情况下检修口会和回风口合并在一块,外观上连成个整体,显得美观。一般尺寸是,出风口А15cm*长60-100cm, Л口高26cm*长60-100cm,检修口为35cm*35cmo出风口、回风口的高度基本能定,但长度要根据室内机的长度和装修环境定。正常情况下中...
Delphi中绘制圆角矩形的窗体
iseekcode的专栏
10-16 6669
 制作圆角矩形的窗体：01.procedure TPortForm.FormCreate(Sender: Tobject);02.var hr :thandle;03.begin04.hr:=createroundrectrgn(0,0,width,height,20,20);05.setwindowrgn(handle,hr,true); 06.end;如果不要窗体外框，则使用：
将控件画成圆角的效果(Delphi)
任游.Abraham.Wei.rEny0u.pRince
12-30 4851
最近在做一个Delphi的项目，常常要设计软件的界面，需要将控件画成圆角矩形。在Delphi中将控件画成圆角效果，可使用CreateRoundRectRgn函数。在此写了一个通用的函数，只要在用到改变控件效果的地方，调用就OK了，函数如下：procedure TfrmTest.RoundControl(Control: TWinControl;arc1:Integer;arc2:Integer);
DelphiXE实现透明、圆角、随意拖动的窗口实现
zxm8513CSDN博客
03-10 1038
在应用当中我们有时候要实现透明、圆角、随意拖动的窗口在应用的最顶层，那么怎么实现呢，下面我列出我的代码。 效果图如下： 代码如下： unit FrmTranWinPas; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Gr...
delphi 鼠标拖拽panel
最新发布
04-04
在 Delphi 中实现鼠标拖拽 Panel 的方法如下： 1. 在鼠标按下事件中获取鼠标位置和 Panel 的位置 ``` procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDragging := True; FMousePos := Point(X, Y); FPanelPos := Panel1.Left; end; ``` 2. 在鼠标移动事件中更新 Panel 的位置 ``` procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if FDragging then Panel1.Left := FPanelPos + (X - FMousePos.X); end; ``` 3. 在鼠标释放事件中停止拖拽 ``` procedure TForm1.PanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDragging := False; end; ``` 完整代码如下： ``` unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure PanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private FDragging: Boolean; FMousePos: TPoint; FPanelPos: Integer; public end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDragging := True; FMousePos := Point(X, Y); FPanelPos := Panel1.Left; end; procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if FDragging then Panel1.Left := FPanelPos + (X - FMousePos.X); end; procedure TForm1.PanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDragging := False; end; end. ```

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值