Curosr in TEdit ans Ende setzen

[scrat1979]

Hallo Zusammen und ein Gutes Neues Jahr!!!!

Kaum hat das Jahr angefangen, schon habe ich das erste Problem. Manchmal scheint das einfachste schwer zu sein
Bevor ihr mich jetzt auf die SuFu oder Google verweist, ich habe dort gefühlte 1.000 Einträge zu dem Thema gefunden, alles funktioniert bei mir jedoch leider nicht. Ich verwende Delphi 2010 Pro und es geht um die Standard TEdit-Komponente.

Wie der Titel schon sagt, möchte ich den Cursor an das Ende eines Textes setzen. Aufgerufen wird die Funktion im OnEnter-Event des TEdit:

Delphi-Quellcode:

  if ((EditURL.Enabled) and (Length(EditURL.Text) = 0)) then begin
    EditURL.Text := 'http://';
    EditURL.SelStart := EditURL.GetTextLen;
  end;

Der Source ist ja selbsterklärend nur funktioniert das leider nicht. Auch andere Varianten mit SelLength etc. funktionieren nicht. Der Cursor bleibt schön links stehen. Mehr Code steht in der Procedure übrigends nicht drin, so dass ich ausschließen kann, dass ein anderer Code-Teil zu dem Verhalten führt.

Ich denke es ist ein simpler Denkfehler meinerseits und hoffe, dass mich jemand von der Leitung stupst

Grüsse

[stahli]

Der Denkfehler: Length(EditURL.Text) = 0)
Zu viel gefeiert?

[scrat1979]

Eigentlich nicht Ich denke schon dass das passt, vielleicht nochmals mein Vorhaben:

Ich habe ein Edit um - wie der Name schon sagt - eine Homepageadresse einzugeben. Wenn das Feld beim OnEnter-Event leer ist, soll die Zeichenkette "http://" eingefügt werden (Zeitersparnis...) und der Cursor an das Textende gesetzt werden. Daher bin ich der Meinung, dass die Überprüfung auf Length(EditURL.Text) = 0 korrekt ist...

[stahli]

Oups.
Ich hatte die zweite Zeile übersehen und gedacht, der SelStart würde nur für Leerstrings aufgerufen.
Bei mir gilt die Feier-Ausrede übrigens gar nicht. Ich habe ordnungsgemäß gearbeitet.

Bei mir funktioniert: odEditPanel.SelStart := MaxInt; Hast Du mal debugt, was überhaupt durchgeführt wird und was Text und TextLength liefert?

[scrat1979]

Okay, auf das bin ich natürlich nicht gekommen und nein, ich habe nicht gedebugged Ich sah dafür aber auch keinen Grund, das Edit ist ja definitiv vor dem Aufruf leer...

Werde es heute Abend gleich mal probieren und posten, ob es geklappt hat. Dank Dir!

[scrat1979]

Hab es versucht, leider ohne Erfolg, der Cursor bleibt nach wie vor am Beginn stehen

EDIT: Habe gerade noch herausgefunden, dass es funktioniert, wenn man das Control über TAB anspringt, klickt man in das TEdit mit der Maus rein, geht der Code leider nicht. Bei einem leeren Projekt sieht es übrigens exakt gleich aus...