Nur Integer Werte im Edit Fenster zulassen

[Matze]

Wie wäre es einfach damit?

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin

  if not (key in [#8, #45, #48..#57]) then
    key := #0;
end;

#8: Backspace
#45: Minus
#48-#57: Ziffern

Im OnChange muss man dann eben auf die Größe der zahl überprüfen.

[EDatabaseError]

Zitat:

Zitat von benisenis

@ EDatabaseError
Ja hab ich schon gesehen, nur scheiter ich dran, dass in mein Delphi zu bekommen!

such mal im Forum...da findest du bestimmt hilfe die Unit zu installieren

[mkinzler]

Ja hab ich schon gesehen, nur scheiter ich dran, dass in mein Delphi zu bekommen! :gruebel:
Woran happerts? Welche delphiversion?

[mkinzler]

Zitat:

Im MaskEdit kann man aber nur eine bestimmte Länge definieren über das MaskFeld - oder

Maximallänge und erlaubte Zeichen (auch gemischt).

[benisenis]

Naja ich hab bisher noch keine externen Units in mein Delphi eingebaut!
Ich hab Delphi 2005 Architekt!

[ErazerZ]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8{bs}, #46{entf}, #48..#57{0-9}]) then
    Key := #0;
end;

[Matze]

@Erazer: Fast das gleiche habe ich doch gerade gepostet. :gruebel:

Bei dir wird jedoch das Minus mit gesperrt und die Entf-Taste muss man nicht mit einschließen, die geht so oder so.

[benisenis]

@Matze & erazer
Funktioniert beides nicht, kann immer noch Buchstaben eingeben!

[Luckie]

Hast du im OI auch den Eventhandler mit dem Edit verbunden?

[Matze]

Zitat:

Zitat von benisenis

@Matze & erazer
Funktioniert beides nicht, kann immer noch Buchstaben eingeben!

Das du das im OnKEyPress-Ereignis? Dann kann das eigentlich nicht sein. :?