Curosr in TEdit ans Ende setzen

[stahli]

Ach so, Du hast den Code im Edit.OnEnter?
Das sollest Du besser bei der Initialisierung des Formulars durchführen.

Alternativ wäre eine Ableitung von TEdit denkbar, die entsprechend angepasst wird.

Oder einen Timer starten, der SelStart mit einer kurzen Verzögerung durchführt.
Das widerspricht dann allerdings dem Standardverhalten und ist daher nicht unbedingt zu empfehlen.

[scrat1979]

Zitat von stahli:

Ach so, Du hast den Code im Edit.OnEnter?
Das sollest Du besser bei der Initialisierung des Formulars durchführen.

Alternativ wäre eine Ableitung von TEdit denkbar, die entsprechend angepasst wird.

Oder einen Timer starten, der SelStart mit einer kurzen Verzögerung durchführt.
Das widerspricht dann allerdings dem Standardverhalten und ist daher nicht unbedingt zu empfehlen.

Hmmmm. Aber ich will den Code ja erst explizit ausführen, wenn ich auf das TEdit klicke (bzw. wenn es den Focus erhält) und nicht schon, sobald das Formular aufgerufen / angezeigt wird. Es muss doch möglich sein, "http://" in das TEdit zu schreiben wenn es den Focus erhält und keinen Text enthält und den Curosr dann dahinter zu plazieren. Ich meine, wir fliegen zum Mars und bauen Raumstation in hunderten Kilomenter Höhe aber das kleine Problem bekommen wir nicht hin

Hoffe auf weitere Tipps...

[stahli]

Zitat von scrat1979:

Ich meine, wir fliegen zum Mars und bauen Raumstation in hunderten Kilomenter Höhe...

Aber WIR doch nicht

Ohne dass ich das jetzt im Detail untersucht habe, mal ein paar Überlegungen:

Wenn Du in ein Edit klickst, wird der Cursor an die entsprechende Position gesetzt. Das würde man auch so erwarten.
Dein gewünschtes Verhalten würde dem eher widersprechen.
Vielleicht kannst Du die Anzeige von "http://" einfach unterlassen und ggf. bei der späteren Verarbeitung ergänzen.

Wenn Du es im OnEnter machst, hat das Edit schon die Kontrolle übernommen. Der Klick ist ja schon erfolgt und die Klickposition vermerkt.
Dann wird der Fokus gesetzt und OnEnter aufgerufen. Dann setzt das Edit den Fokus an die Klickposition. Ich würde das zumindest so vermuten.
Im OnEnter kannst Du daher dann den Cursor nicht in jedem Fall beliebig setzen.

Du müsstest dazu das Verhalten des Edits ändern (durch eine Komponentenableitung) oder die Änderung nachträglich veranlassen (z.B. durch einen Timer).

[Klaus01]

Hallo,

würde es nicht gehen, wenn Du das http:// nachträglich hinzufügst wenn der User es nicht eingetragen hat. z.B. dann wenn das Editfeld verlassen wird.

Grüße
Klaus

[Hansa]

Eine URL rechtsbündig einzugeben, das ist wohl eher unüblich. Man schreibt hier nun mal von links nach rechts und nicht so wie die im nahen Osten. Gehts mehr Richtung Taschenrechner, dann bleibt wohl nichts anderes übrig, als das TEdit zu erweitern :

http://www.swissdelphicenter.ch/de/showcode.php?id=714

Dieses eigene TEdit hätte dann ja auch eine zusätzliche published property, d.h. schon zur Designzeit könnte man das Verhalten einstellen.

[scrat1979]

Zitat von Klaus01:

Hallo,

würde es nicht gehen, wenn Du das http:// nachträglich hinzufügst wenn der User es nicht eingetragen hat. z.B. dann wenn das Editfeld verlassen wird.

Grüße
Klaus

Da ICH der einzige User meines Programmes sein werde geht das natürlich, nur wollte ich es eigentlich so nicht. Naja, dann muss ich es halt so machen...

@Hansa: Danke für Deinen Tipp, Du scheinst das Problem jedoch falsch verstanden zu haben ( Wenn URL in Deinem Post nicht vorhanden gewesen wäre würde ich sagen "Falscher Thread" ). Spass beiseite, es geht nicht um die Ausrichtung von rechts nach links, sondern darum, nach dem Fokusieren eines TEdit - falls es leer ist - den Text "http://" zu setzen und den Cursor schonmal dahinter (also rechts neben dem "//") zu platzieren, um die Eingabe z.B. mit "www..." sofort beginnen zu können. Vielleicht fällt Dir ja dazu aber auch was ein

Grüsse und Danke schonmal an Alle!

[Bummi]

ein Versuch ...

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
   if TEdit(Sender).Tag <> 0 then
      begin
      TEdit(Sender).Tag := 0;
      TEdit(Sender).SelStart := Length(TEdit(Sender).Text) + 1;
      end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
   With TEdit(Sender) do
    begin
      if Length(Text)=0 then
          begin
            Text := 'http:\\';
            SelStart := Length(Text) + 1;
            Tag := 1;
          end;
    end;
end;