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