Procedure

TfrmIVRoutes.BtnOKClick

Module

fIVRoutes

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmIVRoutes

Declaration

procedure BtnOKClick(Sender: TObject);


Source

65    procedure TfrmIVRoutes.BtnOKClick(Sender: TObject);
66    begin
67      if frmIVRoutes.cboAllIVRoutes.ItemIndex = -1 then
68        begin
69           infoBox('A route from the list must be selected','Warning', MB_OK);
70           Exit;
71        end;
72      modalResult := mrOK;
73    end;