在image控件中画了一个四边形。如何能将周围的白色设为透明呢?急切中! ( 积分: 50 )

  • 主题发起人 主题发起人 lucia.peng
  • 开始时间 开始时间
L

lucia.peng

Unregistered / Unconfirmed
GUEST, unregistred user!
[?]在image控件中画了一个四边形。如何能将周围的白色设为透明呢?急切中!
 
[?]在image控件中画了一个四边形。如何能将周围的白色设为透明呢?急切中!
 
用TPaintBox可以

procedure TForm1.Button1Click(Sender: TObject);
begin
with PaintBox1.Canvas do begin
Rectangle(0,0, 100, 100);
end;
With Image1.Canvas, Image1 do begin
Transparent := True;// 设置透明
Rectangle(0,0,100,100);
end;
end;
 
Image1.Transparent := true;
Image1.Invalidate;
DELPHI会自动用图形中左上角的象素点的颜色作为透明的过滤色。
 
to 凝铁衣
不行啊,有没有源码。贴上来看一下。不行就用PaintBox了。
 
过几天再告诉你
 
To lucia.peng,
加上这句
Image1.Transparent := True;
我的QQ:82780254
 
Image1.Transparent := True;
这样不可以吗
或者你先定一个
bitmap内存变量,将图片华在这个bitmap上
再把bitmap加载到Image1上
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
575
import
I
I
回复
0
查看
794
import
I
I
回复
0
查看
646
import
I
后退
顶部