VCL控件透明_textbox控件咋设置背景透明

VCL控件透明_textbox控件咋设置背景透明代码TestPanel=class(Tpanel)publicprocedurePaint;override;end;procedureTestPanel.Paint;varR:TRect;begininherited;R:=ClientRect;DrawParentBackground(Self,Canvas.Hand…

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

VCL控件透明_textbox控件咋设置背景透明
ExpandedBlockStart.gif
代码

  TestPanel 
=
 
class
(Tpanel)
  

public

    procedure Paint; 

override
;
  end;
  
 procedure TestPanel.Paint;
var
  R: TRect;
begin
  inherited;
  R :

=
 ClientRect;
  DrawParentBackground(Self, Canvas.Handle, @R, True);  

//
透明 不透明则  DrawParentBackground(Self, Canvas.Handle)


end;

procedure DrawParentBackground(Control: TControl; DC: HDC; R: PRect 
=
 nil;
  bDrawErasebkgnd: Boolean 

=
 False);
var
  LastOrigin: TPoint;
begin
  GetWindowOrgEx(DC, LastOrigin);
  Control.Parent.Perform(WM_ERASEBKGND, Integer(DC), Integer(DC));
  Control.Parent.Perform(WM_PAINT, Integer(DC), Integer(DC));
  SetWindowOrgEx(DC, LastOrigin.X, LastOrigin.Y, nil);
end;


//
 测试DEMO


procedure TForm1.Button1Click(Sender: TObject);
var
  T1: TestPanel;
begin
  T1 :

=
 TestPanel.Create(Self);
  T1.Left :

=
 
100
;
  T1.Caption :

=
 

dd

;
  T1.Parent :

=
 Self;
end;

 

转载于:https://www.cnblogs.com/chengxin1982/archive/2010/01/15/1648675.html

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/189846.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • idea 2022.01.13激活码【中文破解版】2022.02.20

    (idea 2022.01.13激活码)这是一篇idea技术相关文章,由全栈君为大家提供,主要知识点是关于2021JetBrains全家桶永久激活码的内容IntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,下面是详细链接哦~https://javaforall.cn/100143.htmlHCIQ56F36O-eyJsaWN…

  • burpsuite 越权_挖洞经验 | 用BurpSuite实现越权漏洞(IDOR)的自动发现识别

    burpsuite 越权_挖洞经验 | 用BurpSuite实现越权漏洞(IDOR)的自动发现识别这里分享一个自动化发现IDOR(越权)漏洞的方法,那就是在BurpSuite中利用Autozie和Autorepeater插件实现IDOR漏洞的探测识别,而无需针对每个请求手动去变化参数或请求。IDOR(越权)漏洞:也称“不安全的直接对象引用”,场景发生于当用户对内部资源的访问请求,或基于用户提供的输入对象进行访问时,服务端未进行合理的权限验证,导致当前用户可以未经授权访问获取到不属于自己账户权限…

  • 什么叫单页面开发_获取当前页面url

    什么叫单页面开发_获取当前页面url参考网址https://www.cnblogs.com/belongs-to-qinghua/p/11151054.htmlhttp://www.zhiliaotang.net/jishujiaoliu/web/965.html单页面开发:单页面开发常用于webapp开发和后台管理系统等单页面应用原理:我们通常所说的单页面应用程序通常是通过前端框架vue,react,angular…

    2022年10月13日
  • mvc页面传值的几种方式_netuse

    mvc页面传值的几种方式_netuse1、比如Request.Form["ddlType"]为control中需要模拟的内容2、在单元测试中调用的代码(使用的是VS2010自带的单元测试框架)         varrequest=newMock<HttpRequestBase>();//request.Setup(r=>r.HttpMethod)….

  • madvr怎么设置hdr_文字识别软件

    madvr怎么设置hdr_文字识别软件PotPlayer播放HDR视频截图PotPlayer播放HDR视频截图Windows10内置视频播放器播放HDR视频Windows10内置视频播放器播放HDR视频从去年开始,支持HDR的电视机已经卖得铺天盖地,支持4KUHDHDR的片源也变得丰富起来,动辄50GB的视频资源让广大10TB级松鼠病晚期患者们兴奋地表示家里屯的硬盘和百兆宽带终于有了用武…

  • java中的 Set转List

    java中的 Set转List//构造Map数据 Map<String,String>map=newHashMap<String,String>(); map.put("ele1","小樱"); map.put("ele2","若曦"); map.put("ele3","晴川"); Set<String>s

    2022年10月18日

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号