Automatische Vervollständigung bei Eingabe?

[mandumoal]

Hallo!

Weiss jemand wie ich eine Automatische Vervollständigung bei einer Eingabe realisieren kann?
Ich meine zum Beispiel in einem Edit oder ComboBox wenn mann 'Ha' eingibt, dass dann zum Beispiel dasteht
'Hallo'
und der Cursor hinter 'Ha' bleibt und bei Eingabe eines ls dann dasteht
'Hallo'
und so weiter.....
So wie zum Beispiel bei MS Outlook Express in der 'an:'-zeile wenn man einen Anfangsbuchstaben einer Kontaktperson eingibt.

Gibt es da eventuell eine Kompo oder so..?

mfg mandumoal

[Alexander]

Hi,
dir ist klar, dass die Daten hinterlegt werden müssen, oder?

Aber als kleiner Tip:
Die Combobox kann das, spiel mal ein wenig mit dem Style (siehe OI) herum

[sakura]

Du packst eine TComboBox aufs Form, setzt den Style auf csSimple und die Items StringListe füllst Du mit den Auto-Optionen.

Demo im Anhang.

......

[mandumoal]

hi!

Das was die ComboBox kann ist zwar fast gut aber ich will nicht das sie sich bei der vervollständigung aufmacht!
und außerdem kann man nichts eigeben was nicht exsistiert!

Zitat:

dir ist klar, dass die Daten hinterlegt werden müssen, oder?

na klar

mfg mandumoal

[sakura]

Den Style musst Du auf csSimple setzen, dann geht es genau so, wie Du es willst. Siehe Demo

......

[mandumoal]

Hi sakura!

Bei deiner Demo passiert bei mir garnichts wenn ich zum beispiel dre,ei,zwe oder so eingeb!

liegt das vielleicht daran, dass er die unit variants nicht gefunden hat und iich sie löschen musste?

mfg mandumoal

[Alexander]

Nein daran sollte es nicht liegen, hast du auch eins statt 1 eingeben?
Und steht auch was in den Items bei dir drinne?

[Memo]

Zitat von mandumoal:

Gibt es da eventuell eine Kompo oder so..?

Eine Komponente hab ich mal irgenwann gesucht, aber nicht gefunden.

In guter alter Handarbeit hab ich das schonmal erledigt. Der zu ergenzende Text stamm in dem fall aus einer Tabelle, aber das kann man sich ja umstellen wie mans braucht.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var name1 :String;
    i : Integer;
begin
    name1 := Edit1.Text;
    i := Length(name1);
    if i > 0 then begin
     if Table.Locate('Name',VarArrayOf([name1]),[loPartialKey]) then //oder eine andere Quelle
     begin
      Edit1.Text := Table1.FieldbyName('Name').asString;
      i := Length(name1);
      Edit1.SelStart := i;
      Edit1.SelLength := length(Edit1.Text)-1
     end;
    end;
end;

Das einzigste was ich nicht hinbekommen habe war das der Cursor hinten am Text blinkte. Aber das ist reine Optik.

[Memo]

Ach ja, Sakuras Bsp. tut bei mir auch nichts. Liegt vieleicht doch an der Delphi-Version.

[aps]

Zitat von Memo:

Ach ja, Sakuras Bsp. tut bei mir auch nichts. Liegt vieleicht doch an der Delphi-Version.

Das Autoausfüllen funktioniert erst ab Version 6.