File Explorer Dengan Delphi #130

Tidak ada kepintaran tanpa kebodohan

Andry Fadrie K Desember 14, 2011

0 387 Less than a minute

andrypein.net : Kalau membuat explorer windows yang sungguhan beneran mah atuh saya juga gabisa, file explorer dengan delphi ini mah hanya versi noobnya.

Tujuan nya mah da sederhana atuh, hanya untuk memanfaatkan fasilitas komponen yang disediakan oleh IDE saja gan.

Liat saja skrinsutan aplikasinya :

file explorer dengan delphi — penampakan

Komponen-komponen tersebut bisa dicari dibagian pallete win31 (adalah pasti), yang dibutuhkan ada 3 : DriveComboBox, DirectoryListbox dan FileListBox.

Kodenya pun tidak W.o.W banget lah hanya event-event dari DriveComboBoxOnChange, DirectoryListboxOnChange dan FileListBoxOnClick.

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
 filelistbox1.Directory:=directorylistbox1.Directory;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
 directorylistbox1.Drive:=drivecombobox1.Drive;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
var
 i : integer;
begin
 label1.Caption:=filelistbox1.FileName;
 with filelistbox1 do
  for i:=0 to items.Count-1 do
   if selected[i] then
    edit1.Text:=filelistbox1.Items.Strings[i];
end;