Procedure

TfrmODMedIV.cboRouteExit

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboRouteExit(Sender: TObject);


Source

1561  procedure TfrmODMedIV.cboRouteExit(Sender: TObject);
1562  begin
1563    inherited;
1564  (*  if (cboRoute.Text <> '') and (cboRoute.ItemIndex = -1)  then
1565      begin
1566        infoBox(TX_BAD_ROUTE,'Warning',MB_OK);
1567        cboRoute.SetFocus;
1568      end; *)
1569  end;