TtpFitForm: Key Facts

This class sets up the Init function used by almost all WebHub panels for code initialization.

{ unit UtForm.pas }

type
  TtpMsgEvent = procedure(Sender:TObject;var Msg:TMsg) of object;
  TtpMessageEvent = procedure(Sender:TObject;var Message:TMessage;var Handled:Boolean) of object;
  TtpMessage2Event = procedure(Sender:TObject;Message:TMessage) of object;

type
  TtpFitForm = class(TForm)
  private
    fDoInit: Boolean;
    fOnMessage: TtpMessageEvent;
    procedure CMActivate(var Message: TCMActivate); message CM_ACTIVATE;
    procedure CMDeactivate(var Message: TCMDeactivate); message CM_DEACTIVATE;
  protected
    procedure Loaded; Override;
    procedure WndProc(var Message: TMessage); override;
  public
    constructor Create(aOwner:Tcomponent); override;
    function Init: Boolean; virtual;
    property DoInit: Boolean read fDoInit;
  published
    property OnMessage: TtpMessageEvent read fOnMessage write fOnMessage;
    end;