Class

TfrmODMedOIFA

Module

fODMedOIFA

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmODMedOIFA = class(TfrmBase508Form)
  Label1: TLabel;
  lstFormAlt: TORListBox;
  Label2: TStaticText;
  btnPanel: TPanel;
  cmdYes: TButton;
  cmdNo: TButton;
  procedure FormCreate(Sender: TObject);
  procedure cmdYesClick(Sender: TObject);
  procedure cmdNoClick(Sender: TObject);
  procedure lstFormAltClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
  FSelected: string;
end;

DFM Objects


frmODMedOIFA : TfrmODMedOIFA
 ├Label1 : TLabel
 ├Label2 : TStaticText
 ├lstFormAlt : TORListBox
 ├btnPanel : TPanel
 │ ├cmdYes : TButton
 │ └cmdNo : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnPanel TPanel Public/Published -
cmdNo TButton Public/Published -
cmdYes TButton Public/Published -
FSelected UnicodeString Private -
Label1 TLabel Public/Published -
Label2 Simple (unknown) Public/Published -
lstFormAlt Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
cmdNoClick procedure cmdNoClick(Sender: TObject); Public/Published -
cmdYesClick procedure cmdYesClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
lstFormAltClick procedure lstFormAltClick(Sender: TObject); Public/Published -

Referenced By (4)

Module (line) Referrer Type
fODMedOIFA (46) - Read
fODMedOIFA (54) - Read
fODMedOIFA (80) - Read
fODMedOIFA (88) - Read