Arsip: Browse for folder
more 15 years ago
AReeFDh
salam semuanya...
mas..mas..
q mw tanya nih, cara nampilin dialog browse for folder tu gmn ya?? pake komponen apaan?
(maklum nih, masih pemula buanget)
thanks... :oops:
more 15 years ago
cyber_hecker
coba lihat pada component pallet Dialogs, disana banyak jenis dialog box yang bisa kamu pilih...
more 15 years ago
deLogic
fungsi FileCtrl.SelectDirectory
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): Boolean; overload;
more 15 years ago
imunk
sedikit trik bikin tampilan browse for folder berada di tengah (center):
//jangan lupa tambahkan pada uses: ShlObj
function BrowseDialogCallBack
(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM):
integer stdcall;
var
wa, rect : TRect;
dialogPT : TPoint;
begin
//center in work area
if uMsg = BFFM_INITIALIZED then
begin
wa := Screen.WorkAreaRect;
GetWindowRect(Wnd, Rect);
dialogPT.X := ((wa.Right-wa.Left) div 2) -
((rect.Right-rect.Left) div 2);
dialogPT.Y := ((wa.Bottom-wa.Top) div 2) -
((rect.Bottom-rect.Top) div 2);
MoveWindow(Wnd,
dialogPT.X,
dialogPT.Y,
Rect.Right - Rect.Left,
Rect.Bottom - Rect.Top,
True);
end;
Result := 0;
end; (BrowseDialogCallBack )
function BrowseDialog
(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array of char;
TempPath : array of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo),#0);
with BrowseInfo do begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
lpfn := BrowseDialogCallBack;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
end;
end;
contoh pemanggilan:
procedure TForm1.Button1Click(Sender: TObject);
var sFolder : string;
begin
sFolder := BrowseDialog('Daftar Folder',BIF_RETURNONLYFSDIRS);
showmessage(sFolder);
end;
yang sampe sekarang belum ketemu, menambahkan button "Create New Folder" pada tampilan tersebut.
mungkin para master bisa membantu??
thanks.
more 15 years ago
ImanD
@imunk:bro BIF_RETURNONLYFSDIRS ganti dengan BIF_NEWDIALOGSTYLE selengkapnyasedikit trik bikin tampilan browse for folder berada di tengah (center): yang sampe sekarang belum ketemu, menambahkan button "Create New Folder" pada tampilan tersebut. mungkin para master bisa membantu?? thanks.procedure TForm1.Button1Click(Sender: TObject); var sFolder : string; begin sFolder := BrowseDialog('Daftar Folder',BIF_RETURNONLYFSDIRS); showmessage(sFolder); end;
procedure TForm1.Button1Click(Sender: TObject);
var
sFolder : string;
begin
sFolder := BrowseDialog('Daftar Folder',BIF_NEWDIALOGSTYLE);
showmessage(sFolder);
end;
more 15 years ago
imunk
terima kasih banyak mas iman, sudah berhasil....:)
gimana dg bro @AReeFDh, apakah masalah Anda sudah teratasi??
more 15 years ago
n3o_cybertech
terima kasih banyak mas iman, sudah berhasil....Smile gimana dg bro @AReeFDh, apakah masalah Anda sudah teratasi??OOT : gimana gak selese...master gitu lho yg angkat bicara...!
more 15 years ago
AReeFDh
mas..mas..!!
di pallet dialogs nya ga' da yang Browse Folder nih, gmn dunk..??
dialogs yang ada cuma OpenDialog, SaveDialog, FontDialog, CollorDialog,. trus ada dua dialog lagi yang q lupa namanya,..
tapi bukan browse folder kayaknya..
oh iya, delphi yang q punya tuh Delphi 7, apa ada bedanya ya dengan delphi yang lain :?: :?:
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Uji wawasan USB...
by EkoIndri in Tip n Trik Pemrograman more 17 years ago - Update biaya warnet tiap detik
by sandy in Tip n Trik Pemrograman more 17 years ago - Cek koneksi Database
by om20020 in MySQL more 13 years ago - acces violation?
by benyy in Tip n Trik Pemrograman more 17 years ago - knapa ya ! kO biSa kayak gini
by jajang in Hal umum tentang Pascal Indonesia more 15 years ago - ikut pesan kaos
by indobrainsoft in Tutorial & Community Project more 16 years ago - Buat Downloader
by mas_kofa in Network, Files, I/O & System more 16 years ago - Saran: Tambah Sub Regional
by cyber_hecker in Kritik & Saran more 15 years ago - [lopartialkey,locaseinsensitive]);
by alisiana in Lain-lain more 12 years ago - mau tanya TmxAnyExport
by toing in Tip n Trik Pemrograman more 15 years ago