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)
blank

相关推荐

  • linux命令chmod -R 755 解析

    linux命令chmod -R 755 解析chmod是Linux下设置文件权限的命令,后面的数字表示不同用户或用户组的权限。后面根的一般是三个数字:第一个数字表示文件所有者的权限第二个数字表示与文件所有者同属一个用户组的其他用户的权限第三个

  • MATLAB中canny算子边缘检测「建议收藏」

    MATLAB中canny算子边缘检测「建议收藏」今天来介绍一下关于canny算子做边缘检测的过程:Canny的目标是找到一个最优的边缘检测算法,最优边缘检测的含义是:好的检测-算法能够尽可能多地标识出图像中的实际边缘。好的定位-标识出的边缘要与实际图像中的实际边缘尽可能接近。最小响应-图像中的边缘只能标识一次,并且可能存在的图像噪声不应标识为边缘。1、首先打开MATLAB软件,在其主界面中写入下列代码:I=imre…

  • zigbee开发板(nxpzigbee开发)

    前面我们搭建好了zigbee开发的硬件平台,买一块开发板,注意只要这块开发板上有cc2530,可以向里面烧录程序就可以了。具体的烧录过程我会最近上传我的烧录过程,相关软件我尽快上传。好了回归这一次的主题,那么我们到底需要什么样的开发环境呢?这完全取决于你的项目大小,如果你的项目只是学会使用zigbee,那么你只需要一款烧录软件,以及一款合适的用于编写cc2530的c编译器就OK了。但是我这

  • 计算机设备问题代码43,双击unknown device由于该设备有问题Windows已将其停止(代码 43)怎么办解决教程…「建议收藏」

    计算机设备问题代码43,双击unknown device由于该设备有问题Windows已将其停止(代码 43)怎么办解决教程…「建议收藏」金士顿U盘做的启动盘(8G),在别人的电脑上储存文件正常,但在自己的电脑上无法识别,在设备管理器中显示黄色叹号,属性显示“该设备存在问题,windows已将其停止,代码43”本机win7系统,别人电脑为XP系统。已将:禁用注册表dos设置节电卸载等办法都试过了,毫无头绪!怎么办呢?Windows已将其停止。(代码43)而苦恼。那小编今天就教你处理双击unknowndevice由于…

  • 使用adb logcat命令显示Android设备上的Log日志

    使用adb logcat命令显示Android设备上的Log日志使用adblogcat命令显示Android设备上的Log日志有时候我们在手机程序上的日志要在其他地方调试,然后要看里面的Log日志。本文教大家如何在不需要studio就可以查看手机程序中的Log日志。实现这个功能的前提是使用adb命令,所以必须要有手机和电脑,还有安装adb,adb程序是很小的几M就可以。一.在cmd窗口查看手机的Log日志在确定连上手机后(adbdevi…

  • 在总线周期的t1,t2,t3,t4状态,cpu_计算机组成原理总线带宽怎么算

    在总线周期的t1,t2,t3,t4状态,cpu_计算机组成原理总线带宽怎么算大家好,我是小黄鸭,又来更新了,应小伙伴的需要,该实验也过了。实验所用的软件资源/测试电路也全部开放,地址在MOOC中国大学为:https://www.icourse163.org/learn/HUST-1205809816#/learn/announce附带实验测试,地址在Educode上为:https://www.educoder.net/shixuns/ckff6yv9/challenges光是给的Excel自生成电路表格就上了7个,再加上密密麻麻的电路图,各自安好吧整体框架该实验

    2022年10月13日

发表回复

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

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