Maus positionieren

[litsa]

Hallo
nachdem ich im Forum gesucht und nichts hilfreiches gefunden habe hier nun mein Problem:
möchte ganz einfach wenn ein TEdit den Focus erhält dass der Cursor am Ende des Textes steht

So wie der code jetzt aussieht erhält Tedit zwar den Focus aber der ganze Text wird markiert...

Delphi-Quellcode:

procedure TcFrame.ColorBox1Change(Sender: TObject);
begin
cInputcl := ColorBox1.Selected;
ColorBox1.Selected := clBlack;
if cInput.SelText = '' then
cInput.SelText := DFSMain.Status.getClNr(cInputcl) + cInput.SelText
else
cInput.SelText := DFSMain.Status.getClNr(cInputcl) + cInput.SelText + #3;
cInput.SetFocus;
end;

[3_of_8]

Du musst noch ein cInput.SelLength:=0; reintun. (Und ein cInput.SelStart:=length(cInput.Text)

Achja, außerdem, wieso "Maus" positionieren, du meinst doch eindeutig den Caret?

[Hawkeye219]

Hallo litsa,

hilft der folgende Code?

Delphi-Quellcode:

procedure TForm1.Edit1Enter (Sender: TObject);
begin
  with (sender as TEdit) do
    SelStart := Length(Text);
end;

Gruß Hawkeye

[litsa]

Super!
danke euch beiden sehr für die schnellen antworten!