comb.pas

delphi控件的使用

procedure TSuppOrderInApplyForm.tSupplierComboBoxExit(Sender: TObject);
var i: Integer;
    sSupplier: String;
    bFlag: bool;
begin
    if tCloseBitBtn.Focused = True then exit;
    bFlag := false;
    sSupplier := trim(GetStrInComboBoxBySite(tSupplierComboBox));
    with tSupplierComboBox do
    begin
      for i := 0 to Items.Count - 1 do
      begin
        if (sSupplier = trim(GetStrInStrBySite(Items.Strings[i], 1,'  '))) then
        begin
          ItemIndex := i;
          bFlag := True;
          break;
        end;
      end;
    end;
    if bFlag = false then
    begin
      HintMsgBox('供应商编码输入错误，请重新输入');
      tSupplierComboBox.SetFocus;
    end;
end;