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.!
Random Articles
- Validasi Angka Pada Edit
- Cara mendapatkan printer pada suatu komputer (di jaringan yang di share tentunya
- Membuat Stored Procedure di MS Access tanpa parameter
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Seleksi baris DBGrid menggunakan event OnMouseMove
- Menutup Aplikasi Internet Explorer
- Membuat tampilan seperti XP
- Lock & UNlock ADOTable
- Membuat MP3 Compressor Sendiri
- Membuat Help File untuk Aplikasi Delphi
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago