Class

TfrmPtSelMsg

Module

fPtSelMsg

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPtSelMsg = class(TfrmBase508Form)
  cmdClose: TButton;
  timClose: TTimer;
  memMessages: TRichEdit;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure cmdCloseClick(Sender: TObject);
  procedure timCloseTimer(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
private
  FSeconds: Integer;
  FChanging: boolean;
  FEventsActive: boolean;
  FOldActiveFormChanged: TNotifyEvent;
  FOldTabChanged: TNotifyEvent;
  procedure ClearEvents;
  procedure TabChanged(Sender: TObject);
  procedure ActiveFormChanged(Sender: TObject);
public
  { Public declarations }
end;

DFM Objects


frmPtSelMsg : TfrmPtSelMsg
 ├cmdClose : TButton
 ├memMessages : TRichEdit
 ├amgrMain : TVA508AccessibilityManager
 └timClose : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdClose TButton Public/Published -
FChanging Boolean Private -
FEventsActive Boolean Private -
FOldActiveFormChanged TNotifyEvent Private -
FOldTabChanged TNotifyEvent Private -
FSeconds Integer Private -
memMessages TRichEdit Public/Published -
timClose Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
ActiveFormChanged procedure ActiveFormChanged(Sender: TObject); Private -
ClearEvents procedure ClearEvents; Private -
cmdCloseClick procedure cmdCloseClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
TabChanged procedure TabChanged(Sender: TObject); Private -
timCloseTimer procedure timCloseTimer(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fPtSelMsg (42) frmPtSelMsg Read
fPtSelMsg (52) - Read