TfpgBaseForm

type TfpgBaseForm = class(TfpgWidget)

protected

  FModalResult: TfpgModalResult;

  FParentForm: TfpgBaseForm;

  FWindowPosition: TWindowPosition;

  FWindowTitle: String;

  FSizeable: Boolean;

  procedure SetWindowTitle(); override;

  procedure MsgActivate(); message;

  procedure MsgDeActivate(); message;

  procedure MsgClose(); message;

  procedure HandlePaint; override;

  procedure HandleClose; virtual;

  procedure HandleHide; override;

  procedure HandleShow; override;

  procedure HandleMove(); override;

  procedure HandleResize(); override;

  procedure DoOnClose(); virtual;

  function DoOnHelp(); virtual;

  procedure DoKeyShortcut(); override;

  property DNDEnabled: Boolean; [rw]

  property Sizeable: Boolean; [rw]

  property ModalResult: TfpgModalResult; [rw]

  property FullScreen: Boolean; [rw]

  property WindowPosition: TWindowPosition; [rw]

  property WindowTitle: String; [rw]

  property OnActivate: TNotifyEvent; [rw]

  property OnClose: TFormCloseEvent; [rw]

  property OnCloseQuery: TFormCloseQueryEvent; [rw]

  property OnCreate: TNotifyEvent; [rw]

  property OnDeactivate: TNotifyEvent; [rw]

  property OnDestroy: TNotifyEvent; [rw]

  property OnHelp: TfpgHelpEvent; [rw]

  property OnHide: TNotifyEvent; [rw]

  property OnShow: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  procedure BeforeDestruction; override;

  procedure AfterCreate; virtual;

  procedure AdjustWindowStyle; override;

  procedure SetWindowParameters; override;

  procedure InvokeHelp; override;

  procedure Show;

  procedure Hide;

  function ShowModal;

  procedure Close;

  function CloseQuery; virtual;

end;

TfpgBaseForm

TfpgWidget

TObject