Forum: Software-Projekte der Mitglieder
by uligerhardt,
23. Nov 2011
Hab's noch ein bisschen überarbeitet:
function SelectDirectory(const Caption: string;
var Directory: string; Options: TFileDialogOptions; Parent: TWinControl): Boolean;
var
dlg: TFileOpenDialog;
begin
if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
begin
dlg := TFileOpenDialog.Create(nil);
try
Forum: Software-Projekte der Mitglieder
by uligerhardt,
23. Nov 2011
Ich hab mal schnell einen Wrapper zusammengeklatscht:
function SelectDirectory(const Caption: string;
var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean;
var
dlg: TFileOpenDialog;
begin
if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
begin
dlg := TFileOpenDialog.Create(nil);
try
Forum: Software-Projekte der Mitglieder
by uligerhardt,
23. Nov 2011
Reicht dir denn nicht der normale TOpenDialog? Unter Vista/7 schaut der ja genauso aus wie der TFileOpenDialog.