TFileDialog

type TFileDialog = class(TCommonDialog)

protected

  class procedure WSRegisterClass; override;

  function GetFilterIndex; virtual;

  procedure SetFileName(); virtual;

  procedure SetFilter(); virtual;

  procedure SetHistoryList(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoCanClose(); override;

  procedure DoTypeChange; virtual;

  property Files: TStrings; [r]

  property HistoryList: TStrings; [rw]

  procedure IntfFileTypeChanged();

  class function FindMaskInFilter();

  class function ExtractAllFilterMasks();

published

  property Title: TTranslateString;

  property DefaultExt: string; [rw]

  property FileName: string; [rw]

  property Filter: string; [rw]

  property FilterIndex: Integer; [rw]

  property InitialDir: string; [rw]

  property OnHelpClicked: TNotifyEvent; [rw]

  property OnTypeChange: TNotifyEvent; [rw]

end;

TFileDialog

TCommonDialog

TLCLComponent

TObject