Constructor

TfrmdlgProb.Create

Directives

Override

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Comments

Old TPLDlgForm Methods 

 It is unusual to not call the inherited Create first, but necessary in this case; some
  of the TMStruct objects need to be created before the form gets its OnCreate event.

Visibility

Public

Overrides

TfrmBase508Form.Create

Owner

TfrmdlgProb

Declaration

constructor Create(AOwner: TComponent); override ;

Called-By Hierarchy


                     TfrmdlgProb.Create
              TfrmProblems.AddProblem┤ 
      TfrmProblems.lstProbActsClick┤ │ 
  TfrmProblems.wgProbDataDblClick┤ │ │ 
        TfrmProblems.lstViewClick┘ │ │ 
TfrmProblems.HighlightDuplicate┘   │ │ 
   TfrmProblems.AddProblem...┤     │ │ 
TfrmdlgProb.bbChangeProbClick┘     │ │ 
      TfrmProblems.lstProbPickClick┤ │ 
   TfrmProblems.lstProbPickDblClick┤ │ 
   TfrmProblems.edProbEntKeyPress┘ │ │ 
           TfrmProblems.UMPLLexicon┘ │ 
             TfrmProblems.EditProblem┘ 
   TfrmProblems.lstProbActsClick...┤   
        TfrmProblems.RestoreProblem┘   
 TfrmProblems.lstProbActsClick...┘     

Called-By

Name Declaration Comments
TfrmProblems.AddProblem procedure AddProblem; -
TfrmProblems.EditProblem procedure EditProblem(const why:char); -


Source

1162  constructor TfrmdlgProb.Create(AOwner: TComponent);
1163  { It is unusual to not call the inherited Create first, but necessary in this case; some
1164    of the TMStruct objects need to be created before the form gets its OnCreate event.        }
1165  begin
1166    inherited Create(AOwner);
1167    FCtrlMap := TStringList.Create;       { FCtrlMap[n]='CtrlName=PtrID'                        }
1168    FInitialShow := True;
1169    FModified := False;
1170    FEditing := False;
1171  end;