Procedure

TfrmODMedIV.cboScheduleKeyUp

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

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


Source

1871  procedure TfrmODMedIV.cboScheduleKeyUp(Sender: TObject; var Key: Word;
1872    Shift: TShiftState);
1873  begin
1874    inherited;
1875    if (Key = VK_BACK) and (cboSchedule.Text = '') then cboSchedule.ItemIndex := -1;  
1876  end;