Procedure

TfrmODMedIV.cboPriorityExit

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboPriorityExit(Sender: TObject);


Source

1501  procedure TfrmODMedIV.cboPriorityExit(Sender: TObject);
1502  begin
1503    inherited;
1504    if cboPriority.Text = '' then
1505      begin
1506        infoBox('Priority must have a value assigned to it', 'Warning', MB_OK);
1507        cboPriority.SetFocus;
1508      end;
1509  end;