Curosr in TEdit ans Ende setzen

[Furtbichler]

Zitat von DeddyH:

Und wo ist da jetzt der große Unterschied zu Bummis Code, außer dass dieser den Sender auswertet und das Tag belegt?

Ich finde meinen Code irgendwie -wie soll ich's sagen- kürzer?

Und, na ja, es ist schon eine komische Frage und um ehrlich zu sein, muss ich suchen, um Gemeinsamkeiten zu finden.

1. Ich verwende ein Event (OnChange) und 3 signifikante Zeilen
2. Bummi verwendet zwei Events(OnClick und OnEnter) und 7 Programmzeilen.

Auch sonst ist die Logik eine andere.

[Bummi]

Ich würde sogar sagen unser Code hat überhaupt nichts gemeinsam ....
und auch wenn der Code kürzer ist tut er IMHO nicht was er soll.

[DeddyH]

Zitat von Bummi:

und auch wenn der Code kürzer ist tut er IMHO nicht was er soll.

Das ist die Antwort auf meine (eigentlich rhetorische) Frage

[v2afrank]

Aber um es noch mal zusammenzufassen. Das Problem ist ja das Onclick mit der Maus. Wenn man durch Tab in das Eingabefeld wechselt funktioniert es ja richtig.
Ich würde wie in weiter oben schon angegeben auch noch das Onclick Ereignis zusätzlich zum OnEnter nutzen

Delphi-Quellcode:

procedure TForm16.EditurlClick(Sender: TObject);
begin
  if  EditURL.Text = 'http://' then
     EditURL.SelStart := EditURL.GetTextLen;

end;

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

end;

Ich denke so funktioniert es wie der TE es sich vorgestellt hat

[Frickler]

Es ginge natürlich auch ein eigenes Ereignis, z.B. so:

Delphi-Quellcode:

const WM_AFTERENTER = 50;

// mit der passenden Methode

procedure WMAfterEnter(var Msg: TMessage); message WM_AFTERENTER;

// und dann:

procedure TForm1.EditURLEnter(Sender: TObject);
begin
  PostMessage(Handle, WM_AFTERENTER, 0, 0);
end;

procedure TForm1.WMAfterEnter(var Msg: TMessage);
begin
  if EditURL.Enabled and (Length(EditURL.Text) = 0) then begin
    EditURL.Text := 'http://';
    EditURL.SelStart := EditURL.GetTextlen;
  end;
end;