Function

TfrmPCEBase.ActiveCtrl

Module

fPCEBase

Last Modified

7/15/2014 3:26:36 PM

Comments

Procedure CreateParams(var Params: TCreateParams); override;

Visibility

Protected

Owner

TfrmPCEBase

Declaration

function ActiveCtrl: TWinControl;

Called-By Hierarchy


           TfrmPCEBase.ActiveCtrl
    TfrmEncVitals.SetVitPointer┤ 
   TfrmEncVitals.CheckVitalUnit┤ 
  TfrmEncVitals.cboTempChange┤ │ 
TfrmEncVitals.cboHeightChange┤ │ 
TfrmEncVitals.cboWeightChange┤ │ 
  TfrmEncVitals.cboPainChange┘ │ 
      TfrmEncVitals.cboTempExit┤ 
    TfrmEncVitals.cboHeightExit┤ 
    TfrmEncVitals.cboWeightExit┤ 
  TfrmEncVitals.txtMeasTempExit┤ 
    TfrmEncVitals.txtMeasHtExit┤ 
    TfrmEncVitals.txtMeasWtExit┘ 

Called-By

Name Declaration Comments
TfrmEncVitals.cboHeightExit procedure cboHeightExit(Sender: TObject); -
TfrmEncVitals.cboTempExit procedure cboTempExit(Sender: TObject); -
TfrmEncVitals.cboWeightExit procedure cboWeightExit(Sender: TObject); -
TfrmEncVitals.CheckVitalUnit procedure CheckVitalUnit; -
TfrmEncVitals.SetVitPointer procedure SetVitPointer(Sender: TObject); -
TfrmEncVitals.txtMeasHtExit procedure txtMeasHtExit(Sender: TObject); -
TfrmEncVitals.txtMeasTempExit procedure txtMeasTempExit(Sender: TObject); -
TfrmEncVitals.txtMeasWtExit procedure txtMeasWtExit(Sender: TObject); -


Source

324   function TfrmPCEBase.ActiveCtrl: TWinControl;
325   begin
326     Result := GetParentForm(Self).ActiveControl;
327     if(Result is TORComboEdit) then
328       Result := TWinControl(Result.Owner);
329   end;