Procedure

TfrmODMedNVA.cboRouteKeyUp

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

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


Source

1425  procedure TfrmODMedNVA.cboRouteKeyUp(Sender: TObject; var Key: Word;
1426    Shift: TShiftState);
1427  begin
1428    inherited;
1429    if (Key = VK_BACK) and (cboRoute.Text = '') then cboRoute.ItemIndex := -1;
1430  end;