Arsip: Image di dalam "Resource"


by delphi in Articles more 15 years ago 1200
Contoh berikut menunjukkan bagaimana membaca file bitmap yang tersimpan sebagai resource, dan menampilkannya dalam komponen TImage.
procedure TfDelphi.tbl_GambarClick(Sender: TObject);
var
lbBitmap : TBitmap;
begin
bBitmap := TBitmap.Create;
 try
lbBitmap.Handle := LoadBitmap(hInstance, 'DELPHI');
Image1.Width    := lbBitmap.Width;
Image1.Height   := lbBitmap.Height;
Image1.Canvas.Draw(0,0,bBitmap);
 finally
lbBitmap.Free;
 end;
end;

atau dengan cara yang lain
procedure TfDelphi.tbl_GambarClick(Sender: TObject);
begin
Image1.Picture.Bitmap.
LoadFromResourceName(hInstance,'EARTH');
end;

Jika ingin mencoba sendiri, boleh download file contohnya.!
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com