Procedure

TfrmODMedIV.cboRouteKeyUp

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

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


Source

1579  procedure TfrmODMedIV.cboRouteKeyUp(Sender: TObject; var Key: Word;
1580    Shift: TShiftState);
1581  begin
1582    inherited;
1583    if (Key = VK_BACK) and (cboRoute.Text = '') then cboRoute.ItemIndex := -1;  
1584  end;