Class

TfrmWardComments

Module

fOrderComment

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmWardComments = class(TfrmAutoSz)
  Label1: TLabel;
  cmdOK: TButton;
  cmdCancel: TButton;
  memOrder: TMemo;
  memComments: TRichEdit;
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure memCommentsKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  OKPressed: Boolean;
end;

DFM Objects


frmWardComments : TfrmWardComments
 ├Label1 : TLabel
 ├cmdOK : TButton
 ├cmdCancel : TButton
 ├memOrder : TMemo
 ├memComments : TRichEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
Label1 TLabel Public/Published -
memComments TRichEdit Public/Published -
memOrder TMemo Public/Published -
OKPressed Boolean Private -

Methods

Name Declaration Scope Comments
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
memCommentsKeyUp procedure memCommentsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOrderComment (36) - Read
fOrderComment (40) - Read