เรื่องของเรื่องก็คือว่า
อยากจะใส่ ภาพลงไปบนหน้าจอ ของ Delphi คล้าย ๆ กับ win zip
ลองดูซิว่า Delphi ตัวเก่งจะทำยังไง
ไอ้ทำได้มั้ยนะทำได้แน่ ๆ แต่ว่าจะทำยังไง?
ก่อนอื่นก็เตรียมภาพจาง ๆ ใส ๆ แบบไหนก็ว่ากันไปครับ
ให้กลมกลืนไปกับ form สีขาว ๆ ดังภาพข้างต้นจะได้เนียนกริ๊บ
มาดู code
ไอ้ทำได้มั้ยนะทำได้แน่ ๆ แต่ว่าจะทำยังไง?
ก่อนอื่นก็เตรียมภาพจาง ๆ ใส ๆ แบบไหนก็ว่ากันไปครับ
ให้กลมกลืนไปกับ 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
Post a Comment