Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: dblookupcombobox

   
    by Bummi, 15. Jun 2012
  etwas hingebastelt wäre so etwas denkbar, wobei DBLookupComboBox1CloseUp auch noch sinnvoll behandelt werden sollte ..
  
  
  procedure TForm5.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
  begin
  if key=#13 then
  begin
  if Pos(AnsiUpperCase(FBoxSearchText),AnsiUpperCase(DBLookupComboBox1.text)) <> 1 then
  begin
  Showmessage(FBoxSearchText);
• Forum: Datenbanken

  AW: dblookupcombobox

   
    by Bummi, 15. Jun 2012
  Bei Standardkomponenten wirst Du einen Dialog benötigen, mit cxDBLookupComboBox geht so etwas
  
  
  procedure TForm5.cxDBLookupComboBox1PropertiesNewLookupDisplayText(Sender: TObject; const AText: TCaption);
  begin
  Anreden.Append;
  Anreden.FieldByName('Anrede').AsString := aText;
  Anreden.FieldByName('Typ').AsString := 'A';
  Anreden.Post;
  end;
• Forum: Datenbanken

  AW: dblookupcombobox

   
    by Bummi, 15. Jun 2012
  hier ist Handarbeit gefragt ...