Class

TfrmLabInfo

Module

fLabInfo

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmLabInfo = class(TfrmAutoSz)
  Panel1: TPanel;
  btnOK: TButton;
  memInfo: TCaptionMemo;
  cboTests: TORComboBox;
  procedure btnOKClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cboTestsNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cboTestsClick(Sender: TObject);
private
  { Private declarations }
  OKPressed: Boolean;
public
  { Public declarations }
end;

DFM Objects


frmLabInfo : TfrmLabInfo
 ├Panel1 : TPanel
 │ └btnOK : TButton
 ├memInfo : TCaptionMemo
 ├cboTests : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnOK TButton Public/Published -
cboTests TORComboBox Public/Published -
memInfo TCaptionMemo Public/Published -
OKPressed Boolean Private Private declarations
Panel1 TPanel Public/Published -

Methods

Name Declaration Scope Comments
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
cboTestsClick procedure cboTestsClick(Sender: TObject); Public/Published -
cboTestsNeedData procedure cboTestsNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fLabInfo (28) frmLabInfo Read
fLabInfo (40) - Read