AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Edit Feld definieren

Ein Thema von andloer · begonnen am 28. Nov 2020 · letzter Beitrag vom 28. Nov 2020
 
andloer

Registriert seit: 26. Nov 2020
5 Beiträge
 
Delphi 7 Enterprise
 
#1

Edit Feld definieren

  Alt 28. Nov 2020, 09:09
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
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz