How to add background images to Delphi forms

เรื่องของเรื่องก็คือว่า 
อยากจะใส่ ภาพลงไปบนหน้าจอ ของ Delphi คล้าย ๆ กับ win zip


ลองดูซิว่า Delphi ตัวเก่งจะทำยังไง
ไอ้ทำได้มั้ยนะทำได้แน่ ๆ แต่ว่าจะทำยังไง?













ก่อนอื่นก็เตรียมภาพจาง ๆ ใส ๆ แบบไหนก็ว่ากันไปครับ
ให้กลมกลืนไปกับ form สีขาว ๆ ดังภาพข้างต้นจะได้เนียนกริ๊บ

มาดู code 

procedure TForm6.FormPaint(Sender: TObject);
var
  bg: TBitmap;
begin
  try
    bg := TBitmap.Create;
    bg.LoadFromFile('d:\zip.bmp');    //File bitmap
    Form6.Canvas.Draw(0, 10, bg); //x,y postion
  finally
    FreeAndNil(bg);
  end;
end;

แค่นี้เหรอ
อืมทำแค่นี้แหละ เป็นอันจบกระบวนการ

Comments