OpenDlg()
OpenDlg() – Dateiauswahlfenster
Die Funktion öffnet den Standarddialog zur Dateiauswahl.
Parameter | Beschreibung |
---|---|
aTitle:C | Titel des Dialogfensters; default = 'Öffnen' |
aFilter:C | Filterausdruck; default = Leerstring |
aInitialDir:C | Anfangsverzeichnis |
aFileName:C | Vorgabe für Pfad + Dateiname; default = Leerstring |
Rückgabewert
Objekt - Geöffnete Datei
Beispiel
CODE
| aDlg |
aDlg := OpenDlg('BE-Dateiauswahl', 'BE-Programme|*.DWP|Alle Dateien|*.*', MBEDEFAULT),
startseq,
aDlg.Active := true,
if aDlg.Selected then
WriteLn(aDlg.FileName)
else
WriteLn('Keine Auswahl getroffen ...')
endif,
onerror,
stopseq,
DestroyObject(aDlg),