1. 全栈程序员必看首页

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

全栈程序员-站长 • • 未分类 • 阅读 0

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

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

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/189846.html原文链接：https://javaforall.net

赞 (0)
全栈程序员-站长的头像全栈程序员-站长
0 0


相关推荐

  • Ubuntu 18.04安装i686-elf交叉编译工具链的方法[通俗易懂]

    Ubuntu 18.04安装i686-elf交叉编译工具链的方法[通俗易懂]

    Ubuntu 18.04安装i686-elf交叉编译工具链的方法[通俗易懂]一、准备系统：Ubuntu18.04LTS64位Ubuntureleasesgcc7.3.0、g++7.3.0：#切换到超级用户模式，可以Ctrl+D切回普通用户sudo-sadd-apt-repositoryppa:ubuntu-toolchain-r/testapt-getupdateapt-getinstallgcc-7apt-g…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年6月7日
    37
  • Python数组的使用_算法高效性

    Python数组的使用_算法高效性

    Python数组的使用_算法高效性如果我们需要一个只包含数字的列表，那么使用数组方式比list方式更高效。而且数组还支持所有跟可变序列有关的操作，比如移除列表中的一个元素（.pop）、插入元素（.insert）和在列表末尾一次性追加另一个序列中的多个值（.extend）。除此之外，数组还定义从文件读取（.frombytes）与写入（.tofile）的效率更高的方法。创建数组需要一个类型码，形如array(‘d’），这个类型码是用来表示在底层实现的C语言的数据类型。一般我们用的Python底层是用C语言编写实现的&n

    全栈程序员-站长的头像 全栈程序员-站长
    2022年8月13日
    3
  • -‘0’是什么意思_c语言中a是什么意思

    -‘0’是什么意思_c语言中a是什么意思

    -‘0’是什么意思_c语言中a是什么意思是c语言中的位运算符：取反.0在内存中的存储方式是所有位为0,0000000000000000那么按位取反后位16个1（如果整形在你的机器上站16位）,那么表示的数为-1.转载于:https://www.cnblogs.com/reality-soul/p/6141519.html…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年9月20日
    0
  • 解决TimeWait过多的问题

    解决TimeWait过多的问题

    解决TimeWait过多的问题原文链接：https://www.tiejiang.org/27040.html1、time_wait的作用：TIME_WAIT状态存在的理由：1）可靠地实现TCP全双工连接的终止在进行关闭连接四次挥手协议时，最后的ACK是由主动关闭端发出的，如果这个最终的ACK丢失，服务器将重发最终的FIN，因此客户端必须维护状态信息允许它重发最终的ACK。如果不维持这个状态信息，那么客户端将响应RST分节，服务器将此分节解释成一个错误（在java中会抛出connectionreset的SocketExc

    全栈程序员-站长的头像 全栈程序员-站长
    2022年6月10日
    42
  • JAVA中单例模式_Java中哪些是单例的

    JAVA中单例模式_Java中哪些是单例的

    JAVA中单例模式_Java中哪些是单例的1.说明1)单例模式：确保一个类只有一个实例，自行实例化并向系统提供这个实例2)单例模式分类：饿单例模式(类加载时实例化一个对象给自己的引用)，懒单例模式(调用取得实例的方法如getInstance时才会实例化对象)(java中饿单例模式性能优于懒单例模式，c++中一般使用懒单例模式)3)单例模式要素：a)私有构造方法b)私有静态引用指向自己实例c)以自己实例为返回值的公有静态方法2.实例饿单例…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年8月11日
    3
  • 关于数组元素(ArrayPlug)的增减使用，逻辑索引和物理索引，MArrayDataBuilder

    关于数组元素(ArrayPlug)的增减使用，逻辑索引和物理索引，MArrayDataBuilder

    关于数组元素(ArrayPlug)的增减使用，逻辑索引和物理索引，MArrayDataBuilder

    全栈程序员-站长的头像 全栈程序员-站长
    2021年8月28日
    57

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

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