Class TsFileDirEdit (unit sToolsEdit)

Inherits from

TsCustomLinkEdit

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Change;


procedure CreateHandle;


procedure DestroyWindowHandle;


procedure DoAfterDialog(var AFileName: string; var Action: Boolean);


procedure DoBeforeDialog(var AFileName: string; var Action: Boolean);


procedure DoEnter;

and not (csLoading in ComponentState)

procedure DoExit;


function GetDisplayText: String;


procedure PathChanged;


procedure ReceptFileDir(const AFileName: string);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


function GetPath: string;


procedure SetAcceptFiles(Value: Boolean);


procedure SetDisplayFullPath(Value: Boolean);


procedure SetDragAccept(Value: Boolean);


procedure SetPath(const Value: String);


procedure WMDropFiles(var Msg: TWMDropFiles);


Properties

property AcceptFiles : Boolean


property DisplayFullPath : Boolean


property GlyphKind :


property Path : String


Events

event OnAfterDialog : TExecOpenDialogEvent


event OnBeforeDialog : TExecOpenDialogEvent


event OnDropFiles : TNotifyEvent


event OnPathChange : TNotifyEvent


Variables

FAcceptFiles : Boolean;


FDisplayedChars : Integer;


FDisplayFullPath : Boolean;


FFocused : Boolean;


FOnAfterDialog : TExecOpenDialogEvent;


FOnBeforeDialog : TExecOpenDialogEvent;


FOnDropFiles : TNotifyEvent;


FOnPathChange : TNotifyEvent;


FPath : String;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Change;


procedure CreateHandle;


procedure DestroyWindowHandle;


procedure DoAfterDialog(var AFileName: string; var Action: Boolean);


procedure DoBeforeDialog(var AFileName: string; var Action: Boolean);


procedure DoEnter;

and not (csLoading in ComponentState)


procedure DoExit;


function GetDisplayText: String;


procedure PathChanged;


procedure ReceptFileDir(const AFileName: string);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


function GetPath: string;


procedure SetAcceptFiles(Value: Boolean);


procedure SetDisplayFullPath(Value: Boolean);


procedure SetDragAccept(Value: Boolean);


procedure SetPath(const Value: String);


procedure WMDropFiles(var Msg: TWMDropFiles);


Properties


property AcceptFiles : Boolean


property DisplayFullPath : Boolean


property GlyphKind :


property Path : String


Events


event OnAfterDialog : TExecOpenDialogEvent


event OnBeforeDialog : TExecOpenDialogEvent


event OnDropFiles : TNotifyEvent


event OnPathChange : TNotifyEvent


Variables


FAcceptFiles : Boolean;


FDisplayedChars : Integer;


FDisplayFullPath : Boolean;


FFocused : Boolean;


FOnAfterDialog : TExecOpenDialogEvent;


FOnBeforeDialog : TExecOpenDialogEvent;


FOnDropFiles : TNotifyEvent;


FOnPathChange : TNotifyEvent;


FPath : String;