A PromptForFileName megnyitás és mentés ablakok megjelenítésére is egyaránt használható.
PromptForFileName
function PromptForFileName(
var AFileName: string;
const AFilter: string = '';
const ADefaultExt: string = '';
const ATitle: string = '';
const AInitialDir: string = '';
SaveDialog: Boolean = False
): Boolean;
Paraméterek
var AFileName: string
Egy String típusú változó, amelybe az ablakban kiválasztott állomány elérési útja és neve kerül, ha a felhasználó a mentés vagy megnyitás gombot nyomta meg.
Ha a változó tartalma nem üres String, mielőtt a függvényt meghívjuk, akkor tartalma beíródik az ablak fájlnév mezőjébe.
const AFilter: string = ''
Itt egy szűrőt adhatunk meg. Az ablak csak azokat az állományokat jeleníti meg, amelyek a felsorolt kiterjesztések egyikével rendelkeznek. Egy filtert a következő formában lehet megadni:
'Delphi files|*.PAS;*.DPK;*.DPR'
Az ablak fájltípus mezőjében a Delphi files felirat fog megjelenni, és csak a felsorolt kiterjesztésű állományok válnak láthatóvá.
const ADefaultExt: string = ''
Ennek a paraméternek mentésnél lehet jelentősége. Egy alapértelmezett kiterjesztést adhatunk meg. Ha a felhasználó olyan állománynevet ad meg az ablakban, amely nem a megadott kiterjesztéssel rendelkezik, akkor az állomány kiterjesztése az itt megadott érték lesz.
const ATitle: string = ''
A paraméter a megjelenő dialógusablak címét határozza meg. Ha itt üres String-et használunk, akkor az alapértelmezett rendszer felirat jelenik meg a dialógusablak címsorában, mely attól függ, hogy a dialógusablak megnyitás vagy mentés.
const AInitialDir: string = ''
Itt azt a kezdőkönyvtárat adhatjuk meg, ahonnan a tallózást kezdeni szeretnénk. Ha üres String-et használunk, akkor az az aktuális könyvtárat jelenti.
SaveDialog: Boolean = False
Igaz érték esetén a dialógusablak mentés ablakként, hamis érték esetén megnyitás ablakként funkcionál.
Visszatérési érték
Ha a felhasználó az ablakban kiválasztott egy állományt, akkor a visszatérési érték igaz. Ha a felhasználó a „Mégse” feliratú gombbal bezárta az ablakot, akkor a függvény értéke hamis.
A függvény működésének bemutatására készítettünk egy példaprogramot, amely egy megnyitott Delphi állományt másol a mentés ablakban megadott helyre és névre.