Drag Files Ke Form
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg,
OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
Image1: TImage;
ListBox1: TListBox;
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
// mendeklarasikan procedure acceptfiles
procedure AcceptFiles(var msg: TMessage);
message WM_DROPFILES;
end;
var
Form1: TForm1;
implementation
uses
// menginclude shellapi ke program
ShellAPI;
{$R *.DFM}
procedure TForm1.AcceptFiles(var msg: TMessage);
const
cnMaxFileNameLen = 255;
var
i,
nCount: integer;
acFileName: array[0..cnMaxFileNameLen] of char;
begin
// menghitung jumlah file yang di drag
nCount := DragQueryFile(msg.WParam,
$FFFFFFFF,
acFileName,
cnMaxFileNameLen);
// pengulangan jumlah file yang di blok
for i := 0 to nCount - 1 do
begin
DragQueryFile(msg.WParam, i,
acFileName, cnMaxFileNameLen);
// memasukan alamat file yang didrag ke listbox
ListBox1.Items.Add(acFileName);
end;
//jika ingin menampilkan gambar gunakan
//image1.Picture.LoadFromFile(acFileName);
//jika ingin menampilkan web gunakan
//WebBrowser1.Navigate(acFileName);
DragFinish(msg.WParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// mengijinkan file untuk di drag di form
DragAcceptFiles(Handle, True);
end;
end.
// sintak ini masih bisa kita kembangkan untuk membuka file bertipe lain serti Txt Dan Lain Sebagainya
Random Articles
- Validasi Angka Pada Edit
- Mengambil aktif caption bar suatu aplikasi
- Membuat sendiri UDF library bag.2
- Konversi Rupiah ke Terbilang
- Tips: Leak Viewer di Lazarus
- Cara mendapatkan printer pada suatu komputer (di jaringan yang di share tentunya
- Membuat Tombol saat RunTime
- Membuat sendiri UDF library bag.3
- Komponen Zeos DBO 6.6.4
- Bikin Balooon tooltip
Last Articles
- Mendapatkan Direktori/Path dari suatu aplikasi
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Tips: Leak Viewer di Lazarus
- Tips: Garis Panduan di Form Designer
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Tips: Syncro-Edit in Lazarus
- Tips: Macro OfAll and auto generate variable in Lazarus
- Dasar-Dasar Pemrograman Web
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
Recent Topic
- Tempat Latihan Posting
by LuriDarmawan in OOT 17 days ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 7 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 7 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 7 years ago - Buat Menu akses dengan Otorisasi
by heriy4nt0 in Tip n Trik Pemrograman more 7 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 7 years ago - Membuat No Nota Secara Otomatis
by halimanh in Hal umum tentang Pascal Indonesia more 7 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 7 years ago - AQ3: Cannot Perform this operation an a closed dataset
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago - [ASK] : Input Database
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago