wpe39.gif (1017 bytes) jsGetFileNameDlg

Use this resizable, configurable dialog for getting a file name from the user.

wpe50.gif (15326 bytes)

type TjsGetFileNameDlg = class(TComponent)
private
    FFileName : String;
    FInitialDir : String;
    FInitialFileName : String;
    FWindowCaption : String;
    FOpenBtnCaption : String;
    FFileMustExist : Boolean;
    FDirectory : String;
    FDlgWidth : Integer;
    FDlgHeight : Integer;
protected
    { Protected declarations }
public
    property Directory : String read FDirectory write FDirectory;
    constructor Create(AOwner : TComponent); override;
    function Execute : Boolean;
published
    property DlgWidth : Integer read FDlgWidth write FDlgWidth;
    property DlgHeight: Integer read FDlgHeight write FDlgHeight;
    property FileName : String read FFileName;
    property InitialDir: String read FInitialDir write FInitialDir;
    property InitialFileName : String read FInitialFileName write FInitialFileName;
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property OpenBtnCaption : String read FOpenBtnCaption write FOpenBtnCaption;
    property FileMustExist : Boolean read FFileMustExist write FFileMustExist;
end;