Cursor bei TEdit mit Text, hinter dem Text erscheinen?

[smart]

Hallo!

Ich habe eine Form auf der ein TEdit mit Text (Edit.Text := ‚Blabla’ist. Wie kann ich erreichen, dass beim Aufruf der Form der Cursor hinter dem Text erscheint und nicht am Anfang?

Gruß
Heike

[Hawkeye219]

Hallo Heike,

du könntest in der Behandlungsroutine für das Ereignis OnEnter den Cursor hinter den Text setzen:

Delphi-Quellcode:

procedure TForm1.Edit1Enter (Sender: TObject);
begin
  with (Sender as TEdit) do
    SelStart := Length(Text);
end;

Wenn das Editfeld beim Start des Formulars den Fokus besitzen soll, solltest du es in der Eigenschaft ActiveControl des Formulars eintragen.

Gruß Hawkeye

[smart]

Zitat von Hawkeye219:

Hallo Heike,

du könntest in der Behandlungsroutine für das Ereignis OnEnter den Cursor hinter den Text setzen:

Delphi-Quellcode:

procedure TForm1.Edit1Enter (Sender: TObject);
begin
  with (Sender as TEdit) do
    SelStart := Length(Text);
end;

Wenn das Editfeld beim Start des Formulars den Fokus besitzen soll, solltest du es in der Eigenschaft ActiveControl des Formulars eintragen.

Gruß Hawkeye

Vielen Dank, Hawkeye.
Genau darauf bin ich nicht gekommen.
Gruß
Heike