Caret in TEdit /TComboBox etc. setzen

[Sven Janssen]

Ich habe folgenden Code um einen Bereich in einem Eingabefeld zu markieren.
Nur sitzt dann das Caret hinter dem selektieren Text und nicht davor wo ich es zum überschreiben benötigen würde:

Delphi-Quellcode:

procedure TForm5.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i,l:integer;
begin
    if combobox1.text = '' then exit;
    l:=length(combobox1.text);
    for i:=0 to userliste.count -1 do begin
        if copy(userliste[i],1,l) = combobox1.text then begin
            combobox1.text:=userliste[i];
            ComboBox1.SelStart:=l;
            ComboBox1.SelLength:=length(userliste[i]);
            break;
        end;
    end;
end;

Hier im Forum habe ich immer gefunden das Ihr das Caret mit selstart setzt. Aber das geht bei mir natürlich nicht mehr.
Ich hatte einmal ne API Funktion in den Fingern womit es ging, aber keinen Schimmer mehr wo ich dies gelesen hab.

Sven

[Sharky]

Zitat:

Zitat von Sven Janssen

Ich habe folgenden Code um einen Bereich in einem Eingabefeld zu markieren.
Nur sitzt dann das Caret hinter dem selektieren Text und nicht davor wo ich es zum überschreiben benötigen würde:
....

Hai Sven,

wenn ich das mit einem TEdit mache ist das Caret zwar hinter dem markierten Text aber trotzdem wird dieser überschrieben wenn ich etwas tippe.

[Sven Janssen]

stimmt.
Hab nur den Cursor hinten gesehen und mir das tippen gespart.
Hätte ich es doch mal lieber gemacht ;-)
danke für den Hinweis.

Sven