Nur Integer Werte im Edit Fenster zulassen

[Cyberbob]

Wenn du bei deiner Edit-Feld im Objektinspektor oben auf Erreignisse und dann unten auf OnKeyPress Klickst, dort dann:

if not (Key in [#8{bs}, #46{entf}, #48..#57{0-9}]) then
Key := #0;

eingibts, sollte das funktionieren

[3_of_8]

Integer ist signed, man darf also, falls man wirklich Integerwerte zulassen will, das - und evtl auch das + nicht vergessen. Aber auch nur an der geeigneten Position.

[Matze]

Zitat von 3_of_8:

Aber auch nur an der geeigneten Position.

Huch stimmt, das überprüft mein Code nicht.

[Meflin]

Alternativ könnte man auch noch ein Spin-Edit (Palette Beispiele) nehmen. Dann hat man selbst überhauptkeine Arbeit mehr und die meisten DAUs erkennen auch dass man da ne Zahl eintippen soll

[Muetze1]

Hinweis zu den ganzen OnKeyPress-Methoden: Diese sind keine Lösung, da man bei Ihnen immernoch mit STRG-V Code einfügen kann in das Edit, welches auch andere Zeichen als die erlaubten beinhaltet. Das setzem vom ES_NUMBER Style als alternative hat das gleiche Manko.

[Brainshock]

Hi,

vielleicht hilft dir das weiter:

#160:Numeric editbox

[Hawkeye219]

Hallo Brainshock,

wie Muetze1 schon richtig bemerkte, ist auch bei dieser Lösung das Einfügen unzulässiger Zeichen über die Zwischenablage möglich. Zudem verhindert sie zuverlässig das Einfügen eines Vorzeichens über die Tastatur.

Gruß Hawkeye

[benisenis]

OK, Danke für die vielen Antworten!
Ich habs jetzt so gemacht, wie Matze & Erazer mir gesagt haben! Ich glaub nicht, dass jemand versuchen wird in das Edit einzufügen, also ist es nicht so wicht ig

Gruß

Benisenis

[Matze]

Hi,

dann würde ich aber nicht direkt StrToInt auf das Edit anwenden, sondern sicherheitshalber überprüfen, ob es sich auch wirklich um einen Integer-Wert handelt. Möglichkeiten wären u.a. Val(), try - except oder TryStrToInt.

[Cöster]

Ich würd's so machen:

Delphi-Quellcode:

var EdText: String;

procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
  Try
    temp := StrToInt(Edit1.Text);
    EdText := Edit1.Text;
  Except
    Edit1.Text := EdText;
  end;
end;