TFileNameEdit

type TFileNameEdit = class(TCustomButtonEdit)

protected

  function GetDefaultGlyph; override;

  function GetDefaultGlyphName; override;

  function CreateDialog(); virtual;

  procedure SaveDialogResult(); virtual;

  procedure DoButtonClick(); override;

  procedure RunDialog; virtual;

  procedure DoEditTextChange(); override;

  procedure DoFolderChange(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  property AutoSelected: Boolean;

  property DialogFiles: TStrings; [r]

published

  property FileName: string; [rw]

  property InitialDir: string; [rw]

  property OnAcceptFileName: TAcceptFileNameEvent; [rw]

  property OnFolderChange: TNotifyEvent; [rw]

  property DialogKind: TDialogKind; [rw]

  property DialogTitle: string; [rw]

  property DialogOptions: TOpenOptions; [rw]

  property Filter: string; [rw]

  property FilterIndex: Integer; [rw]

  property DefaultExt: string; [rw]

  property HideDirectories: Boolean; [rw]

  property ButtonWidth: Integer;

  property DirectInput: Boolean;

  property ButtonOnlyWhenFocused: Boolean;

  property NumGlyphs: Integer;

  property Flat: Boolean;

  property Align: TAlign;

  property Alignment: TAlignment;

  property Anchors: TAnchors;

  property AutoSelect: Boolean;

  property BidiMode: TBiDiMode;

  property BorderSpacing: TControlBorderSpacing;

  property BorderStyle: TBorderStyle;

  property AutoSize: Boolean;

  property Color: TColor;

  property DragCursor: TCursor;

  property DragMode: TDragMode;

  property Enabled: Boolean;

  property Font: TFont;

  property MaxLength: Integer;

  property ParentBidiMode: Boolean;

  property ParentColor: Boolean;

  property ParentFont: Boolean;

  property ParentShowHint: Boolean;

  property PopupMenu: TPopupMenu;

  property ReadOnly: Boolean;

  property ShowHint: Boolean;

  property TabOrder: TTabOrder;

  property TabStop: Boolean;

  property Visible: Boolean;

  property OnChange: TNotifyEvent;

  property OnClick: TNotifyEvent;

  property OnDblClick: TNotifyEvent;

  property OnDragDrop: TDragDropEvent;

  property OnDragOver: TDragOverEvent;

  property OnEditingDone: TNotifyEvent;

  property OnEndDrag: TEndDragEvent;

  property OnEnter: TNotifyEvent;

  property OnExit: TNotifyEvent;

  property OnKeyDown: TKeyEvent;

  property OnKeyPress: TKeyPressEvent;

  property OnKeyUp: TKeyEvent;

  property OnMouseDown: TMouseEvent;

  property OnMouseMove: TMouseMoveEvent;

  property OnMouseUp: TMouseEvent;

  property OnStartDrag: TStartDragEvent;

  property OnUTF8KeyPress: TUTF8KeyPressEvent;

  property Text: TCaption;

end;

TFileNameEdit

TCustomButtonEdit

TCustomControl

The base class for windowed controls which paint themselves.

TWinControl

Implements a windowed control which can contain other child controls.

TControl

The base class for visible controls.

TLCLComponent

TObject