Thema: Delphi Nochmal TEdit

Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
652 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

Nochmal TEdit

  Alt 16. Apr 2017, 16:56
Hallo Delphianer,

ich habe ein Problem zu TEdit.
Mein Ziel ist, ich will in den TEdit's eine Erklärung einblenden z.B. Vorname, Nachname, Wohnort. Beim Anwählen des Feldes mit der TAB-Taste
wird der Text selektiert und das Textcarret steht am Ende. Wenn ich jetzt ein Zeichen eingebe, verschwindet die Vorgabe und wird durch die
Eingabe ersetzt wie gewünscht. Wenn ich aber mit dem Mauszeiger in ein Eingabefeld grätsche, wird der Text nicht selektiert. Mein Quelltext:
Delphi-Quellcode:
procedure TForm1.Edit1Enter(Sender: TObject);
var
  Ed: TEdit;
begin
  Ed:=TEdit(Sender);
  Ed.Font.Style:=[];
  Ed.Color:=clYellow;
  if Ed.Text = Vorg[Ed.Tag] then begin beep; Ed.SelectAll end;
end;
Das funktioniert aber nicht, es passiert nichts. Wie muss ich vorgehen, um das gleiche Verhalten wie beim Einstieg mit der TAB-Taste zu erreichen?
Schöne Ostern
Willie
  Mit Zitat antworten Zitat