تغییر رنگ زمینه فرم (یا گذاشتن عکسی روی Background فرم بدون استفاده از Image)

[peym4ns]

سلام
من می خوام برای زمینه فرم یک عکس بزارم ... اما بدون استفاده از image
خیلی گشتم اما راهی به ذهنم نرسید.

[rasool_brn]

var
BitMap:TBitmap;
begin
BitMap:=TBitmap.Create;
BitMap.LoadFromFile('c:\win\test.bmp');
Form1.Canvas.StretchDraw(rect(0,0,Form1.Width,Form 1.Height),BitMap);
BitMap.Free;
end;

[peym4ns]

خیلی ممنون از راهنمایی و کمکتون ..... از این کد در قسمت on creat form استفاده کردم اما هیچ تغییری روی فرم مشاهده نشد .... میشه بگین من این کد رو دقیقاً کجا بزارم.
ممنون می شم

[DAMAVAND]

کد رو در قسمت OnPaint استفاده کنید.

[aserfg]

دوست گرامی مقاله ای رو که تو همین سایت گذاشتم مجددا براتون لینکشو می زارم

http://www.divshare.com/download/2231658-51e

[aserfg]

دوست عزیز از کد زیر استفاده کنین فقط مسیر کامل وارد کنین

procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
{ Bitmap.IgnorePalette := True; }
Bitmap.LoadFromFile('path');
Canvas.Draw(0, 0, Bitmap);
Bitmap.Free;
end;
مسیر فایل =path