Procedure

TfrmPtSel.cboPatientKeyUp

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

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


Source

408   procedure TfrmPtSel.cboPatientKeyUp(Sender: TObject; var Key: Word;
409     Shift: TShiftState);
410   begin
411     inherited;
412     if (Key = VK_BACK) and (cboPatient.Text = '') then cboPatient.ItemIndex := -1;
413   end;