Procedure

TfrmFlagOrder.cboOnExit

Module

fOrderFlag

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmFlagOrder

Declaration

procedure cboOnExit(Sender: TObject);


Source

103   procedure TfrmFlagOrder.cboOnExit(Sender: TObject);
104   begin
105     with cboAlertRecipient do
106       if (ItemIndex = -1) or (Text = '') then
107       begin
108         AlertRecip := -1;
109         ItemIndex := -1;
110         Text := '';
111       end
112       else
113       begin
114         AlertRecip := ItemIEN;
115       end;
116   end;