如何操持Delphi7中TImage.canvas背景透明

Delphi > VCL组件开发及应用
收藏 回复
[问题点数：40分]
更多帖子
私信 空间 博客
wgzymzx
等级
本版专家分：284
结帖率 96.92%
我写了一个小程序，其中用到了4个完全重叠在一起的TImage控件，模拟4个图层(类似Photoshop的图层的概念)，在不同的图层上画不同的内容，现在有两个问题：
1、如何设置TImage的canvas，才能保证其背景是透明的；
2、清除后如何保证其背景继续透明；
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
lyhoo163
等级
本版专家分：50583
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二
1、放一个Panel设置它的大小和位置；
2、在Panel中，放4个Image叠放在一起，
   Image4  <— 最上层
   Image3
   Image2
   Image1  <— 最下层

3、设置Image属性：
   Image4.Transparent := True;
   Image4.Stretch := True;
   ...... 
   Image1.Transparent := True;
   Image1.Stretch := True;
4、IMage清除图片
   Image1.Picture.Assign(nil);
5、
   Image4
   Image3
   Image2
   Image1 分别读入图像，只能看到Image4的图像

6、显示不同层图像
（1）
   Image4.Picture.Assign(nil); 看到Image3的图像
（2）
   Image4.Picture.Assign(nil); 
   Image3.Picture.Assign(nil); 看到Image2的图像
（3）
   Image4.Picture.Assign(nil); 
   Image3.Picture.Assign(nil); 
   Image2.Picture.Assign(nil); 看到Image1的图像
（4）
   Image4.Picture.Assign(nil); 
   Image3.Picture.Assign(nil); 
   Image2.Picture.Assign(nil); 
   Image1.Picture.Assign(nil); 无图像

说的够清楚了，自己试试。 

只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
heqxmail
等级
本版专家分：186
pngimage控件
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
早打大打打核战争
等级
本版专家分：25269
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2021年1月 C++ Builder大版内专家分月排行榜第一
2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
#1的方法文不对题。
1. 楼主的要求是图层透明，不是切换图层显示的问题。
2. 切换图层显示可以简单的 xxx.BringToFront，不需要释放图像。
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
lyhoo163
等级
本版专家分：50583
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二
Image几层中背景透明，只能使用Png图像，控件也是要支持Png的。例如：PngImage

下载：http://download.csdn.net/detail/zwd183335/5029010
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
早打大打打核战争
等级
本版专家分：25269
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2021年1月 C++ Builder大版内专家分月排行榜第一
2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2016年11月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
标准的TImage也可以背景透明，它是使用的键控色技术，也就是指定一种颜色为key color，图像中凡是颜色为key的区域都是透明的。具体说就是TImage.Transparent、TBitmap.Transparent、TBitmap.TransparentColor、TBitmap.TransparentMode这几个属性。
只看TA 引用 举报 #5得分 0
收起
收藏 回复
wgzymzx

等级：

关注 私信 TA的帖子
GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧

GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧 在Delphi中，通过设置TBitmap的Transparent、TransparentColor和TransparentMode属性，可以很方便的实现图像中某种颜色的透明显示；也可以采用某种算法对图像像素逐...

Delphi中canvas（画布）的运用

正在看的Delphi教程是:Delphi中canvas（画布）的运用。 在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的  CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以  在这些的控件的表面随心所欲的...

Delphi 10.3.3 演示FMX TBitmap.Canvas绘图属性和方法

这个例子展示了如何使用TBitmap.Canvas属性。这个示例在图像上绘制了一个矩形。 要构建和测试这个例子，请创建一个多设备应用程序--Delphi，然后将下一个对象添加到表单中。 一个TImage来显示初始TBitmap. 一个...

Delphi之Canvas画矩形

这个Button不用管，我只是为了看能不能透明而已QWQ。下面是实现在Image1的Canvas上画图的代码，要对Image1设置鼠标Down、Up和Move的事件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, ...

delphi中Canvas（画布）的运用

在DELPHI为编程者提供了一个灵活...CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以  在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制  作一些屏幕特技都有着非凡的作用,下面举例说明几种特殊屏幕

Delphi中关于Canvas.TextOut

我想让字符串在Canvas上显现出来，但不知道如何改变字底边的颜色，想变成透明或其它色彩都行， 只是希望所输出的字符串不会影响到Canvas里边的图形。请问前辈们让如何做呢？ Canvas....

TBitmap.Canvas 上绘制的内容被自动缩放的问题

Delphi Seattle 运行 Win7 & iOS 9.2 问题描述当需要在Bitmap.Canvas上人工绘制内容（包括图像和形状）时，遇到如下问题。procedure TForm1.FDrawMethod1(Sender: TObject); begin with Image1.Bitmap do begin...

delphi绘图canvas及应用(转）

delphi绘图canvas及应用2010年03月25日 星期四 14:59DELPHI为编程者提供了一个灵活的绘图场所,CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以  在这些控件的表面随心所欲的绘图,这对完善用户...

Delphi7中Timage图片合并精确位置问题

本意是希望用Image1作为背景图片（大图，用Scrollbar显示），然后Image2生成图片后用鼠标任意拖拽位置，到达Image1指定位置后，采用Timage中的Canvas.Draw(x,y,Image2.Picture.Graphic)进行合并，但是坐标位置x,y...

delphi下用Timage显示圆形的图像（还没有封装成控件）

可以不用再写代码了，直接上DEMO（参考附件） 第四个按钮是最后效果按钮。 （由于 不能加附件，看来直接上代码了）： unit Unit1; ... Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...

Delphi中关于Canvas.TextOut的用法

我想让字符串在Canvas上显现出来，但不知道如何改变字底边的颜色，想变成透明或其它色彩都行，只是希望所输出的字符串不会影响到Canvas里边的图形。请问前辈们让如何做呢？...//透明canvas.textout(0...

Delphi中canvas(画布)的运用

{在DELPHI为编程者提供了一个灵活的绘图场所, 即本文所述的CANVAS类, 在DELPHI中的很多控件都具有此属性, 使编程者可以在这些的控件的表面随心所欲的绘图, 这对完善用户界面或者制作一些屏幕特技都有着非凡的...

Delphi 之Copyrect的使用

Copyrect的使用（图片复制、放大、以及做图片放大镜等）一、从一个选取一个区域中的图象到另一个图象组件中的固定区域procedure TForm1.Button1Click(Sender: TObject);var rtDest, rtSource: TRect; rtIndex: In...

DelphiXe3 FireMonkey 如何画图

DelphiXe3 FireMonkey 如何画图 在Delphi的老版本中，我们使用TCanvas画布类来实现画图操作，如画线、画圆、画矩形等。在DelphiXe3中的FireMonkey，HD以及3D应用程序中，如何通过自己编写代码来实现画图操作呢。 ...

简单解决动态修改TImage的canvas大小的方法

简单解决动态修改TImage的canvas大小的方法前几天小宝写手动检验ED3调色板和数据匹配问题的程序(delphi，我不是很熟悉，但写界面比VC快多啦)时，遇到了不能动态修改TImage的canvas大小的问题。开始时我是用的TCanvas...

Delphi中canvas（画布）

在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制作一些屏幕特技都有着非凡的作用,下面...

Delphi中canvas类（画布）

在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制作一些屏幕特技都有着非凡的作用,下面...

Delphi 在图片上画矩形

//img1.Canvas.FillRect(img1.ClientRect); //把画布背景填充为白色 img1.Canvas.Pen.Color := clRed; img1.Canvas.Rectangle(cx, cy, X, Y); end; end; procedure TForm3.img1MouseUp(Sender: TObject; ...

delphi 剪切板变量_7.Delphi剪切板和动态数据交换

作为一种基于Windows的开发工具，Delphi支持如下四种数据交换方式：剪贴板、动态数据交换 ( DDE)、对象联接与嵌入(OLE)以及动态联接库(DLLs)。这中间前三种方式最为常用，OLE功能最为强大，DDE次之。而剪贴板使用...

Canvas 的drawRect 几个参数理解

昨天写了一个View视图，在上面画了一个矩形，这个视图的最后效果如图： 主要代码如下： package com.view; import com.example.testsql.R; import android.content....import android.graphics.BitmapFa

delphi完美经典--第十一、十二章

第11章 TApplication与TScreen类介绍及应用 一、TApplication类  用于开发窗口程序的类。此类封装了一个窗口应用... Delphi的每个窗口程序都会自动声明一个Application对象，此变量属于Tapplication类。 TApplicat

delphi中canvas画布的运用

在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的 CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以 在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制 作一些屏幕特技都有着非凡的作用,...

delphi透明panel组件或者制作方法

//透明Panel控件 unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gsBlackness, gsDstInvert,...

Delphi 生成二维码【PaintBox】并保存为本地文件添加至【Image】控件中

下载地址：https://pan.baidu.com/s/1dN_7WGAlOIGoSdJJviQoEQ 提取码：8m9c 【同时记得把路径也添加了，能搜索到就行，不管用那种方法】 首先声明： private QRCodeBitmap: TBitmap; public procedure Update; ...

delphixe10 android操作 打电话，摄像头，定位等

转自网上，收藏备用 XE6 不支持JStringToString、StringTojString、StrToJURI：use Androidapi.Helpers //Splash Image Delphi XE5，XE6，XE7编译的程序在Android下启动会有一...现在Delphi XE7增加了Splash Im...

TImage更换图片画布刷新问题

TImage从一个ImageList加载图片，比方说点击一次加载第一张，点击第二次加载第二张，但发现加载第二张的时候，第一张的图像没有被清除，第二张是...Canvas->FillRect(img->Canvas->ClipRect);//加上这句就...

Delphi 转载：关于GDI绘图 Canvas的简单介绍

Delphi GDI绘图 Canvas 2010-10-05 11:14:56|分类：默认分类|标签：canvas绘图gdidelphi|举报|字号订阅 http://anony3721.blog.163.com/blog/static/511974201095111456949/ 绘图需要有纸、画笔、画刷; ...

Delphi 打印,设置在打印机画布的位置和大小,设置打印预览的大小

[code="c++"]Printer.BeginDoc; ...Printer.Canvas.StretchDraw(MyRect1,Image1.Picture.Bitmap); // 设置 MyRect2 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(M...

delphi截取图像：用TBitMap.canvas.CopyRect，保存后结果失真严重，

七夕情人节表白HTML源码(两款)

七夕节、情人节表白用的HTML源码(两款)

相关热词 c# 系统托盘图标 c#结构体定义 c# 根据网络定位 c# 清除html标签 c# uwp最小化 c#和java的区别 64位转换 c# 十进制 c# 点击保存草稿的实现 c# 如何切换图片 c# 界面 隐藏部分