Eingabefeld mit automatik gesucht

[Popov]

Zitat von Marco Steinebach:

Wenn ich in ein Feld bereits
Bern
Berlin
Besum
eingegeben habe, möchte ich, daß bei eingabe von "Be" zunächst der Rest des Feldes mit, sagen wir, "Bern" ausgefüllt wird

Gibt es, nennt sich TComboBox.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.AutoComplete := True; //ist ja sowieso default
  ComboBox1.Items.Add('Bern');
  ComboBox1.Items.Add('Berlin');
  ComboBox1.Items.Add('Besum');
end;

Jetzt starten und in die Combobox ein B eingeben.

Oder brauchst du es für TEdit?

[Darlo]

Ich packe alle möglichen Ergebnisse in eine StringList. Beim Edit onKeyUp

Delphi-Quellcode:

  {$IFDEF MsWindows}
  TEdit(sender).Text := UpperCase(Copy(TEdit(sender).Text,1,1))+LowerCase(Copy(TEdit(sender).Text,2,Length(TEdit(sender).Text)));
  if bAutoComplete then
   for I := 0 to slNationalitaet.Count - 1 do
   begin
    with TEdit(sender) do
    begin
      if (Text = '') or (LowerCase(slNationalitaet[I]) = LowerCase(Text)) then
        Exit;
      if StrLComp(PChar(LowerCase(slNationalitaet[I])), PChar(LowerCase(Text)),
        Length(Text)) = 0 then
      begin
        StartPos := Length(Text);
        Text := Text + Copy(slNationalitaet[I], StartPos + 1, Length(slNationalitaet[I]));
        SelStart := StartPos;
        SelLength := Length(Text) - StartPos;
        Exit;
      end;
    end;
   end;
   {$ENDIF}

Und im onKeyDown

Delphi-Quellcode:

  {$IFDEF MsWindows}
  if Key = vk_Back then bAutoComplete := false else bAutoComplete := true;
  {$ENDIF}