我想改变form的color...(50分)

Y

yhwyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #1

在设计一个数据库管理软件时，在mainform中的属性color只提供了十来个固定
的颜色，有没有办法由设计者来定义加一幅漂亮的图形作为背景，这样比原来
整版都是一个颜色可能要好些，请高手出面，方法最好简单些。谢谢 …！！！
50分够吗???

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #2

这个问题，不要花钱的啊，检索就可以找到答案，应该回答很多次了。关键字：
客户区 背景
http://www.delphibbs.com/delphibbs/dispq.asp?lid=263361
http://www.delphibbs.com/delphibbs/dispq.asp?lid=263988

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #3

在Form中添加Image控件
设BMP图象
name为 IMG_BK
在Foem的Create事件中写入
Self.brush.bitmap:=img_bk.picture.bitmap;

 

M

micony

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #4

这应该没问题吧，Tfrom有个canvas类可以帮你的忙
将下边代码放到form的onpaint事件里
var r:Trect;
bmp:Tbitmap;
begin
bmp:=Tbitmap.create;
r:=rect(0,0,form1.width,form1.height);
canvas.rectcopy(r,bmp.canvas,r);
bmp.free;
end;
呵呵，要说一点，我忘了是rectcopy还是copyrect了，你试一下就知道了

 

L

lanjiancn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #5

var
Bitmap: TBitmap;

procedure TFrm_Main.FormCreate(Sender: TObject);
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile('./Image/bmp/cars.bmp');
Cbr_Main.Picture.Bitmap:=Bitmap;
end;

 

Y

yhwyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #6

to antic_ant:
此方法很好，马上给分，另想再问一下，如果是gif或jpg怎么实现？？？

 

Y

yhwyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #7

多人接受答案了。