如何让Image在Edit控件上面显示？(10分)

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-01

• #1

如何让Image在Edit控件上面显示？
在Form窗口里，Edit控件只能在Image上显示，现在我要让Image在Edit控件上面显示怎么现实？

 

D

delphilxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-01

• #2

没有明白你的意思

 

无

无欲则刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-01

• #3

楼主是想用Image遮盖住Edit吗？如果是这样，那就把Image放在panel上，用panel盖住Edit

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #4

是将Image遮盖住Edit上方，因为我Image要装载透明图形。使用Panel不可行。
[red]如何将Image遮盖住Edit上方显示？[/red]

 

L

lingmao3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #5

使用ehlib控件,
DBEditEh

 

F

fhli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #6

tflatpanel有透明效果, 去下载控件

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #7

你好！我已经从delphifans.com下载FlatStyle控件，是2004年发布的旧版。
在使用过程中发现还是不能解决问题，也就是说控件并没有透明功能，所以还是不能解决问题。
[red]请大家帮助！如何将Image遮盖住Edit上方显示？[/red]

 

A

abigail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #8

delphi7 中有没有能承载多个图片的控件啊

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #9

此问题还没有解决，请大家继续出力！！！
[blue]如何将Image遮盖住Edit上方显示，但Image是透明的图形？[/blue]

 

E

e-

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #10

Image.Parent := Edit;

 

E

eloveme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #11

首先要弄明白VCL体系···什么是组件，什么是控件，那么这个问题就好分析了
如果要达到你要的那中效果，可以取巧啊！
把Edit的Visible属性设置为false

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #12

这样也行不通，因为Image有可能盖住Edit上方半边，另半边就是Image是透明的图形
[green]如何将Image遮盖住Edit上方显示，但Image是透明的图形？[/green]

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #13

为了方便理解我做了一个图。
其目的是数据上方有一个透明图，同时可以看到下面的数据。

 

K

kinneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #14

看了图，可以做到的。

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #15

kinneng,你好！应该如何实现？

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #16

http://hi.baidu.com/29027288/album/item/7f2bdd63fd3804c8e6113a69.html

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #17

3868474, 你好！能否把代码粘出来。

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #18

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Panel2: TPanel;
Button1: TButton;
Edit1: TEdit;
Image3: TImage;
PaintBox1: TPaintBox;
procedure Button1Click(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
bmp: TBitmap;
implementation
{$R *.dfm}
procedure TfrmXsjs.FormDestroy(Sender: TObject);
begin
inherited;
if assigned(bmp) then
bmp.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(bmp) then
bmp := TBitmap.Create;
bmp.Transparent := true;
bmp.Width := clientRect.Right - clientRect.Left;
bmp.Height := clientRect.Bottom - clientRect.top;
bmp.Canvas.CopyRect(ClientRect, Canvas, ClientRect);
Panel2.Visible := true;
panel2.BringToFront;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
if assigned(bmp) then
paintBox1.Canvas.CopyRect(ClientRect, bmp.Canvas, ClientRect);
end;

end.

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #19

3868474,你好！
首先感谢你的支持，不过你离解决IMAGE里的透明图还差一步。
我的意思是IMAGE里预先就是一个透明的图，但通过你的COPY后就不透明了，所以还要解决这一点。

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #20

image和paintBox1放在panel中, 开始时并不显示, 何来copy?
bringtofront时再显示, image还是透明的.
image应放在paintBox1的上面