![]() |
Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Hallo!
Ich wollte es so machen, daß in einem Edit-Feld nur Zahlen und Backspace erlaubt ist:
Delphi-Quellcode:
Wie kann ich die Kode modernisieren dass auch Kopieren (STRG + C) und Einfügen (STRG + V) funktioniert?
...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then key:=#0; end; ... Danke! |
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Klingt blöd, aber dann nimm doch gleich ein TSpinEdit :)
air |
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Nein, es muss unbedingt eine TEdit sein.
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Das funktioniert sowieso. Verstehe dich nicht ganz?
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
MfG Binärbaum |
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Was ist da nicht zu verstehen? In einer TEdit dürfen nur Zahlen drin sein. Außerdem muss mann die Kopieren/Einfügen - Funktionen benutzen können.
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Geh doch im Onchange alle Buchstaben durch und überprüfe ob es Zahlen sind:
Delphi-Quellcode:
Alternativ kannst du auch die Buchstaben per delete rausnehmen.
str:='';
for i:=0 to length(e1.text)-1 do if (e1.text[i] in ['0'..'9']) then str:=str+e1.text[i]; e1.text:=str; |
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
MfG Binärbaum |
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Zitat:
|
Re: Edit-Feld: nur Zahlen + Kopieren/Einfügen?
Hai,
ich würde dem TEdit ein eigenes PopupMenü zuweisen und dann die einzelnen Funktionen des "normalen" Popups nachbilden. In der Funktion für das Einfügen einfach prüfen ob im Clipboard nur Zahlen stehen und nur dann diese Einfügen. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz