Einzelnen Beitrag anzeigen

Hobby-Programmierer

Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
 
Delphi XE Starter
 
#7

AW: Frage zu SaveDialog

  Alt 7. Okt 2011, 20:24
Oh, hatte ich wohl falsch interpretiert.
Falls du die Jedis installiert hast geht das auch einfacher.
Delphi-Quellcode:
...
Uses ..., JvBaseDlg, JvSelectDirectory;
...

var sDir: TJvSelectDirectory;
begin
  sDir:= TJvSelectDirectory.Create(self);
  try
    if sDir.Execute then
      Edit2.Text:= IncludeTrailingPathDelimiter(sDir.Directory);
   finally
    sDir.Free;
  end;
end;
LG Mario
Mario
'Lesen Sie schnell, denn nichts ist beständiger als der Wandel im Internet!'

Geändert von Hobby-Programmierer ( 7. Okt 2011 um 20:39 Uhr)
  Mit Zitat antworten Zitat