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 default = Leerstring (Verzeichnis der zuletzt geöffneten Datei)
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),