dblookupcombobox

[Bummi]

Bei Standardkomponenten wirst Du einen Dialog benötigen, mit cxDBLookupComboBox geht so etwas

Delphi-Quellcode:

procedure TForm5.cxDBLookupComboBox1PropertiesNewLookupDisplayText(Sender: TObject; const AText: TCaption);
begin
  Anreden.Append;
  Anreden.FieldByName('Anrede').AsString := aText;
  Anreden.FieldByName('Typ').AsString := 'A';
  Anreden.Post;
end;


// DFM

  object cxDBLookupComboBox1: TcxDBLookupComboBox
    Left = 360
    Top = 360
    DataBinding.DataField = 'Anrede'
    DataBinding.DataSource = DataSource1
    Properties.DropDownListStyle = lsEditList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'ID'
    Properties.ListColumns = <
      item
        FieldName = 'Anrede'
      end>
    Properties.ListSource = Anreden_Src
    Properties.OnNewLookupDisplayText = cxDBLookupComboBox1PropertiesNewLookupDisplayText
    TabOrder = 1
    Width = 145
  end