قراردادن عکس درback ground

سلام دوستان چطور برای background فرم هام در دلفی عکسهایی که دارم را قرار بدم؟

نقل قول:

---

نوشته شده توسط sm6m10 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان چطور برای background فرم هام در دلفی عکسهایی که دارم را قرار بدم؟

---

سلام
اينطوري :

کد:

---

private
{ Private declarations }
MyBitmap: TBitmap;

procedure WMEraseBkgnd(var m: TWMEraseBkgnd);
  message WM_ERASEBKGND;

---

کد:

---

procedure TBmpform.WMEraseBkgnd(var m: TWMEraseBkgnd);
begin
    m.Result := LRESULT(False);
end;

---

کد:

---

procedure TBmpForm.FormPaint(Sender: TObject);
var
  x, y: Integer;
  iBMWid, iBMHeight: Integer;
begin
  iBMWid := MyBitmap.Width;
  iBMHeight := MyBitmap.Height;
  y := 0;
  while y < Height do
  begin
    x := 0;
    while x < Width do
    begin
      Canvas.Draw(x, y, MyBitmap);
      x := x + iBMWid;
    end;
    y := y + iBMHeight;
  end;
end;

---

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
  MyBitmap := TBitmap.Create;
  MyBitmap.LoadFromFile('Brick4.bmp');
end;

---

کد:

---

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  bmpBackground.Free;
end;

---

دوست عزیز ممنونم.