Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
Delphi XE Starter
|
AW: Frage zu SaveDialog
7. Okt 2011, 21: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 21:39 Uhr)
|