Curosr in TEdit ans Ende setzen

[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;