Procedure

TfrmPtSel.cboPatientKeyDown

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

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

Calls Hierarchy


TfrmPtSel.cboPatientKeyDown
 └TfrmPtSelDemog.ToggleMemo

Calls

Name Declaration Comments
TfrmPtSelDemog.ToggleMemo procedure ToggleMemo; -


Source

919   procedure TfrmPtSel.cboPatientKeyDown(Sender: TObject; var Key: Word;
920     Shift: TShiftState);
921   begin
922     if (Key = Ord('D')) and (ssCtrl in Shift) then begin
923       Key := 0;
924       frmPtSelDemog.ToggleMemo;
925     end;
926   end;