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?

[yankee]

Klar, mach einfach

Delphi-Quellcode:

if (key='V') AND (key={strg eben}) then...

[Viperb0y]

then... und weiter?

Was soll ich da denn hinschreiben? :wiejetzt:

[yankee]

wat weiß ich. z.B.: edit1.PasteFromClipboard, falls das funzt. Ansonsten

Delphi-Quellcode:

 if not (key in [#8,#46,#48..#57]) OR ((key='V') AND (key=STRG))) then key:=#0;

Du musst nur STRG durch den entsprechenden dings ersetzen...

[Viperb0y]

Danke, ich guck gleich ma obs geht!

[yankee]

Mir fällt gerade auf, dass Kex eigentlich garnicht V und STRG sein kann. Es muss eher STRGV sein. Da gibt es aber so eine Seite:
http://www.asciitable.com/

[Viperb0y]

Zitat:

Zitat von yankee

Mir fällt gerade auf, dass Kex eigentlich garnicht V und STRG sein kann. Es muss eher STRGV sein. Da gibt es aber so eine Seite:
http://www.asciitable.com/

1. Kenne ich die Seite
2. Finde ich da kein STRG
3. STRGV erst recht nich ^^

[Viperb0y]

Hallo,

Ich habs anders gelöst! Aber danke :) Bye

[yankee]

Bitte schreibe uns auch noch, wie du es gelöst hast, damit andere, die das gleiche Problem haben und die SuchenFunktion nutzen auch was davon haben.

[Viperb0y]

Hallo,

Ich habe ein Label Hinzugefügt wo steht das die User rechtsklick machen sollen und dann auf Einfügen klicken :mrgreen:

Ist ne Möglichkeit ;)

[fkerber]

Hi!

Ich würde es so lösen:

Delphi-Quellcode:

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


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if shift=[ssctrl] then begin
  if (key=Ord('V')) or (key=Ord('v')) then
    edit1.PasteFromClipboard;
  end;
end;

Ist glaube ich besser.
Die Frage ist nur, ob das Ausschließen von Buchstaben etwas bringt, wenn man sie durch Einfügen doch hinein bekommt.

Ciao fkerber