Фон формы

[FAiver]

Всем привет!
вот сталкнулся стакой проблемкой немогу нормально сделать фон формы... вот нашол вот такой пример:

var back:TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
back:=Tbitmap.Create;
back.LoadFromFile('1.bmp');
end;

procedure TForm1.FormPaint(Sender: TObject);
var x,y:integer;
begin
x:=0;
y:=0;
while y < Form1.Height do begin
while x < Form1.Width do begin
form1.Canvas.Draw(x,y,Back);
x:=x+back.Width;

end;
x:=0;
y:=y+back.Height;
end;
end;

но проблема в том что фаил с рисунком должен весга присутствовать с программой! как сделать что бы рисунок оставался в программе?

[BOBAH13]

Читайте про ресурсы. А еще легче для Вас киньте на форму TImage. Конечно криво, но я как понял Вы не сильны еще, так что пойдет. Если что могу предложить лучший, как на меня, способ.

[FAiver]

TImage не пойдет т.к. не видно тогда на форме label ов. и соответственно то что в них написанно. Где можно почитать про ресурсы? и как в res файл засунуть картинку bmp?

[BOBAH13]

Все хорошо расписано в DelpiWorld. А TImage просто правой кнопкой кликните в среде, там будет типа поставить назад относительн других компонентов... вот после этого будет все видно )

[FAiver]

точно!! а я что то забыл про DelphiWorld.... вот нашол решение

form1.brush.bitmap:=image1.picture.bitmap;