Edit-Feld: nur Zahlen + Kopieren/Einfügen?

[romber]

Hallo!

Ich wollte es so machen, daß in einem Edit-Feld nur Zahlen und Backspace erlaubt ist:

Delphi-Quellcode:

...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;
...

Wie kann ich die Kode modernisieren dass auch Kopieren (STRG + C) und Einfügen (STRG + V) funktioniert?

Danke!

[Airblader]

Klingt blöd, aber dann nimm doch gleich ein TSpinEdit

air

[romber]

Nein, es muss unbedingt eine TEdit sein.

[sniper_w]

Das funktioniert sowieso. Verstehe dich nicht ganz?

[Binärbaum]

Zitat von romber:

Wie kann ich die Kode modernisieren dass auch Kopieren (STRG + C) und Einfügen (STRG + V) funktioniert?

Verwende doch statt KeyPress das OnKeyDown-Ereignis. Dort kann man auch abfragen, ob STRG, ALT, Shift, usw. gedrückt wurde.

MfG
Binärbaum

[romber]

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.

[Nikolas]

Geh doch im Onchange alle Buchstaben durch und überprüfe ob es Zahlen sind:

Delphi-Quellcode:

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;

Alternativ kannst du auch die Buchstaben per delete rausnehmen.

[Binärbaum]

Zitat von Toxman:

Geh doch im Onchange alle Buchstaben durch und überprüfe ob es Zahlen sind:

Delphi-Quellcode:

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;

Alternativ kannst du auch die Buchstaben per delete rausnehmen.

Das ist fast schon etwas zu umständlich. Man bräuchte diese for-Schleife gar nicht, wenn man schon im OnKeyXXXXX die ungültigen Zeichen rausfiltert.

[Luckie]

Zitat von Binärbaum:

Das ist fast schon etwas zu umständlich. Man bräuchte diese for-Schleife gar nicht, wenn man schon im OnKeyXXXXX die ungültigen Zeichen rausfiltert.

Es geht aber auch um das Einfügen über die Zwischenablage.

[romber]

Zitat von Luckie:

Es geht aber auch um das Einfügen über die Zwischenablage.

Genau. Und wie mache ich das?