Procedure

TfrmODMedIV.cboPriorityKeyUp

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

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


Source

1511  procedure TfrmODMedIV.cboPriorityKeyUp(Sender: TObject; var Key: Word;
1512    Shift: TShiftState);
1513  begin
1514    inherited;
1515    if (Key = VK_BACK) and (cboPriority.Text = '') then cboPriority.ItemIndex := -1;
1516  end;