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