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:

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:

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. :tongue:

[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?