In einem Edit nur Zahlen erlauben!

[Viperb0y]

Hallo,

Ich möchte in einem Editfeld nur Zahlen erlauben...

Alles was ich gefunden hab funzt zwar, erlaubt aber auch !"§$%&/()= also die zeichen mit shit + zahl!

Kann mir bitte jemand helfen, oder link zu was funzendem posten?

Danke!

[Markus K.]

Hallo Viperb0y,
folgender Code müsste eigentlich funktionieren.

Delphi-Quellcode:

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

Hoffe das er deinen Ansprüchen genügt.

Tschüß Markus

[Wheelie]

TCurrencyEdit in der RXLibrary rxlib

[Viperb0y]

Zitat von Markus K.:

Hallo Viperb0y,
folgender Code müsste eigentlich funktionieren.

Delphi-Quellcode:

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

Hoffe das er deinen Ansprüchen genügt.

Tschüß Markus

Vielen Dank!

Das ist sehr gut!

Wo finde ich denn eine Tabelle wo diese "#x" teile stehen damit ich weis welche tasten das sind? (ich möchte noch weitere tasten erlauben!)

MfG Christian

[fkerber]

Hi!

Such mal nach virtuellen Tasten-Codes oder virtual KeyCodes.

auch hier im Forum. Im EDH ist glaube ich eine liste.


Ciao fkerber

[yankee]

Es gibt da für Delphi eine sehr nette Komponentenreihe, namesns JVCL, eine sehr nette Komponentenreihe mit 500 Kompos.
Da gibt es ein edit dabei, welches nur Integer akzeptiert.

Download bei SourceForge: SourceForge JVCL

[Viperb0y]

Hallo,

Danke!

EDIT:

Zitat von yankee:

Es gibt da für Delphi eine sehr nette Komponentenreihe, namesns JVCL, eine sehr nette Komponentenreihe mit 500 Kompos.
Da gibt es ein edit dabei, welches nur Integer akzeptiert.

Download bei SourceForge: SourceForge JVCL

Bringts mir nicht, da ich auch "." erlauben muss
(IP)

EDIT2:

Hab die Liste zwar nicht gefunden, aber

Code:

echo '<?php echo ord("."); ?>' | php

in der bash hat mir geholfen

[Robert_G]

Oder einfach "virtual key codes" in der OH suchen.

[yankee]

Bei der KomponentenReihe gibt es edits, die Folgende Variablen erlauben:
Float (in zwei Varianten), Currency (mit und ohne$), Year, Integer.

Also kannst du auch einen"." erlauben.

[Viperb0y]

Hallo,

Habe doch noche ein Problem:

Habe jetzt Folgenden Code:

Delphi-Quellcode:

procedure TForm1.ipKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#8,#46,#48..#57]) then key:=#0;
end;

Nun will ich noch Paste in dem Fenster erlauben! Ich habe gehört das man dann STRG und V erlauben muss.. das Problem ist nur das ich "V" nicht haben will! Nur in Verbindung mit STRG! Ist das möglich?