TKFileNameEdit

type TKFileNameEdit = class(TCustomComboBox)

protected

  procedure ButtonClick(); virtual;

  procedure ButtonExit(); virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure DropDown; override;

  procedure KeyDown(); override;

  procedure SetParent(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Notification(); override;

published

  property Style;

  property Anchors;

  property AutoSize;

  property BiDiMode;

  property Button: TControl; [rws]

  property ButtonAlign: TKFileNameEditButtonAlign; [rw]

  property ButtonDist: Integer; [rw]

  property ButtonStyle: TKFileNameEditButtonStyle; [rw]

  property ButtonText: TCaption; [rws]

  property ButtonWidth: Integer; [rw]

  property CharCase;

  property Color;

  property Constraints;

  property Flat: Boolean; [rw]

  property DlgProperties: TKFileNameEditDlgProperties; [r]

  property DragCursor;

  property DragKind;

  property DragMode;

  property DropDownCount;

  property Enabled;

  property FileName: TFileName; [rw]

  property Font;

  property ItemHeight;

  property Log: TKLog; [rw]

  property MaxLength;

  property Options: TKFileNameEditOptions; [rw]

  property ParentBiDiMode;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Sorted;

  property TabOrder;

  property TabStop;

  property Visible;

  property WarningColor: TColor; [rw]

  property WholeLeft: Integer; [rws]

  property WholeWidth: Integer; [rws]

  property OnChange;

  property OnClick;

  property OnContextPopup;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnDrawItem;

  property OnDropDown;

  property OnEndDock;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMeasureItem;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDock;

  property OnStartDrag;

  property Items;

end;

TKFileNameEdit

TObject