Guten Morgen,
kurze Frage zu der
Edit Komponente.
Die Caption des Feldes ist zu beginnt gefüllt mit 'Bitte eintragen!', bei EditClick wird alles markiert und bei KeyPress dürfen nur
Zahlen kommen.
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Wohnflaeche := StrtoFloat(Edit1.Text);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in [#48..#57,#8,#44]) then key :=#0;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll ;
end;
Problem an der Sache ist, dass es nur funktioniert, wenn ich direkt
Zahlen eingebe.. wenn ich den Inhalt lösche macht er mit eine Fehlermeldung. Bei
Edit.Clear macht er mir auch eine Fehlermeldung.
Vermute weil ich einen String durch das löschen eintrage, was ich ja nicht darf?
Jemand eine Lösung parat?
Freundliche Grüße und schönes Wochenende