Procedure

TfrmEncounterFrame.SelectTab

Module

fEncounterFrame

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmEncounterFrame

Declaration

procedure SelectTab(NewTabName: string);

Calls Hierarchy


TfrmEncounterFrame.SelectTab
 └TfrmEncounterFrame.tabPageChange
   ├TfrmEncounterFrame.PageIDToTab
   ├TfrmEncounterFrame.PageIDToForm
   └TfrmEncounterFrame.SwitchToPage
     └TfrmPCEBase.DisplayPage

Called-By Hierarchy


TfrmEncounterFrame.SelectTab
       TfrmPCEBase.DoEnter┘ 

Calls

Name Declaration Comments
TfrmEncounterFrame.tabPageChange procedure tabPageChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean); -

Called-By

Name Declaration Comments
TfrmPCEBase.DoEnter procedure DoEnter; override; -


Source

738   procedure TfrmEncounterFrame.SelectTab(NewTabName: string);
739   var
740     AllowChange: boolean;
741   begin
742     AllowChange := True;
743     tabControl.TabIndex := FormList.IndexOf(NewTabName);
744     tabPageChange(Self, tabControl.TabIndex, AllowChange);
745   end;