Delphi-PRAXiS - Delphi Maus positionieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Maus positionieren (https://www.delphipraxis.net/75737-maus-positionieren.html)

Maus positionieren

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;

Re: Maus positionieren

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?

Re: Maus positionieren

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

Re: Maus positionieren

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