我又两个问题：第一，如何用用一幅图，平铺在窗体上。第二，如何使这个窗体上所有控件都可以显示这幅图。(200分)

A

adailee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #1

请教！
adailee@163.com

 

Z

zhanzehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #2

1使用TImage
2使用TImageList

 

Z

zhoulide

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #3

说清楚些，我没有理解

 

A

adailee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #4

（1）一幅很小的底纹图像，想要平铺到整个窗体上。如何做最好？
（2）窗体上的控件，主要是TPanel，TPageControl这样的东东，如何实现让它们也可以显示底纹？而且不是参差不齐。

 

A

adailee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #5

第一个问题可以这样解决：
Self.Brush.Bitmap := Image1.Picture.Bitmap;
Self.Refresh;

这种方法甚至可以用来解决第二个问题
GroupBox1.Brush.Bitmap := Image1.Picture.Bitmap;
GroupBox1.Refresh;

问题有两个，第一，图像没有过渡；第二，GroupBox1的Text没有透明。

 

D

daxian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #6

给你个例子(Delphi的帮助里自己带的)

var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('MyBitmap.bmp');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,100));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;

end;

TPanel，TPageControl：使用他们的(xx as TWinControl).Brush即可，可以不用
FillRect(Rect(0,0,100,100))去绘制，他们自己回去绘制。

 

A

adailee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #7

这可以做到，但是如何实现TGroupBox的透明问题呢？