Procedure

TfrmODMedIV.cboSelectedKeyDown

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboSelectedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Calls Hierarchy


TfrmODMedIV.cboSelectedKeyDown
 └TfrmODMedIV.cboSelectedCloseUp
   └TfrmODMedIV.ControlChange
     ├TfrmODMedIV.loadExpectFirstDose
     │ ├TfrmODMedIV.DisplayDoseNow
     │ ├LoadAdminInfo
     │ └FMToday
     │   └FMNow
     ├TResponses.FindResponseByName
     ├TResponses.Clear
     ├TResponses.Update
     │ ├TResponses.FindResponseByName
     │ └TResponses.IENForPrompt
     ├IsNumericRate
     └TResponses.GetOrderText
       ├TResponses.NextInstance
       ├TResponses.FindResponseByName
       ├TResponses.FormatResponse
       │ └TResponses.FindResponseByIEN
       └TResponses.AppendChildren
         ├TResponses.FindPromptByIEN
         ├TResponses.FindResponseByIEN
         └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODMedIV.cboSelectedCloseUp procedure cboSelectedCloseUp(Sender: TObject); -


Source

1894  procedure TfrmODMedIV.cboSelectedKeyDown(Sender: TObject; var Key: Word;
1895    Shift: TShiftState);
1896  begin
1897    inherited;
1898    if (Key = VK_RETURN) or (Key = VK_Tab) then
1899    begin
1900      cboSelectedCloseUp(cboSelected);
1901      Key := 0;
1902    end;
1903  end;