Editfeld Eigenschaft Kommazahl ?

[Vader]

hallo,

welche eigenschaft muß ich ändern bei einen editfeld wenn ich keine kommazahlen möchte ?


mfg vader

[Muetze1]

Moin!

Verhindere im OnKeyPressed Ereignis die Kommataste - also setze den Parameter Key auf #0, wenn Key ein Komma oder Punkt enthält. Gleichzeitig kannst du dort auch Buchstaben etc. verhindern.

Eine vorgefertigte Eigenschaft gibt es bei einem TEdit für sowas nicht.

MfG
Muetze1

[Vader]

hallo,

ich stehe auf der leitung, kann das nicht umsetzten, kannst du mir einen code posten bitte


mfg vader

[Hansa]

Du sollst im Onkeypress folgendes einbauen :

Delphi-Quellcode:

if key = DecimalSeparator then
  key := 0;

Auf Komma / Punkt würde ich nicht prüfen ! Irgendein Heini hat eventuell ein englisches Windows.

[Jelly]

Zitat:

Zitat von Hansa

Auf Komma / Punkt würde ich nicht prüfen ! Irgendein Heini hat eventuell ein englisches Windows.

Es gibt also wohl mehr englische Heinis als deutsche :roll:
Aber du hast Recht, im Prinzip einfach auf DecimalSeperator zu prüfen.

In deiner Lösung hast du aber noch ein Problem: Wenn Text mittels STRG-V im Editfeld eingefügt wird, wird das im OnKeypressed Ereignis nicht abgefangen. Ich würde also die ganze Prüfung ins OnChange Ereignis verlagern.

[Hansa]

zum OT :

Zitat:

Zitat von Jelly

Es gibt also wohl mehr englische Heinis als deutsche :roll:

wer hat das gesagt ? :shock: Ich hatte nur die deutschen Heinis im Blickfeld. Kenne einen mit deutschem Tastaturtreiber auf Notebook, aber US-Tastaturbeschriftung. Entsetzlich. :mrgreen:

Die Zwischenablage dürfte allerdings kein ernsthaftes Problem sein. => suchen

[Vader]

hallo,

das mitdem code funzt nicht !

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = DecimalSeparator then
  key := 0;
end;

Delphi-Quellcode:

[Warnung] Unit1.pas(743): Symbol 'Range' ist plattformspezifisch
[Fehler] Unit1.pas(967): Inkompatible Typen: 'Char' und 'Integer'
[Fataler Fehler] Project1.dpr(91): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg vader

[Kroko1999]

ord + F1
chr + F1

[Hansa]

Was sollen immer die Verweise auf die Hilfe wegen Kinkerlitzchen. :mrgreen: Für solche Winzigkeiten brauche ich doch nicht den Source durchzuwühlen. Allerdings schleichen sich dadurch auch Fehler ein. es muß

Delphi-Quellcode:

key := #0;

heißen.

[Kroko1999]

Zitat:

Zitat von Hansa

Was sollen immer die Verweise auf die Hilfe wegen Kinkerlitzchen. :mrgreen: Für solche Winzigkeiten brauche ich doch nicht den Source durchzuwühlen. Allerdings schleichen sich dadurch auch Fehler ein. es muß

Delphi-Quellcode:

key := #0;

heißen.

Selber suchen macht schlau :-D

[r2c2]

Ich nehme mal an, der User soll weder n Komma noch Text eingeben können, dann schreib doch einfach:

Delphi-Quellcode:

if not (Key in ['0'..'9', #8]) then
begin
  Beep;
  Key := #0;
end;

Copy&Paste muss du dann natürlich auch noch abfangen.

mfg

Christian

[ibp]

bei den Schweizern gibt es eine Lösung auch für C&P ...Edit nur mit Zahlen

[Vader]

hallo,


leider es funzt nicht, es wird trozdem eine zahl mit kommastelle eingelesen !

mfg vader

[alzaimar]

Zitat:

Zitat von Vader

welche eigenschaft muß ich ändern bei einen editfeld wenn ich keine kommazahlen möchte ?

Nicht die Eigenschaft ändern, sondern das Control, nimm doch TSpinEdit.

Oder sowas:

Delphi-Quellcode:

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

[ltiefland]

Schau Dir mal di vorletzte Komponente auf dieser Seite an. Dort kannst Du den Datentyp einstellen. Ist zwar eigentlich für Delphi 2 bis 4, funktioniert aber eventuell auch mit neueren Versionen. Ich habe es selber noch nicht getestet.

[Vader]

tut mir leid männer, aber der letzte code funzt auch nicht, und die komponente finde ich nicht ?

mfg vader

[ltiefland]

Sorry, direktes Linken auf eine Seite geht wohl nicht. So was blödes! Daher:

Gehe auf http://gd.tuwien.ac.at/softeng/delphi/, klicke dann links auf "Delphi 2.0". Im oberen, rechten Frame klickst Du unter der Rubrik "Freeware" auf "Improved Componentes". Im unteren Frame klickst Du dann so lange auf den Pfeil nach rechts, bis Du auf Seite 7 (die URL von meinem vorherigen Post) bist. Diese Datei beginnt mit "rich_tv.zip" als erste Komponente und endet mit "tframe.zip". Die Komponente, die ich meine steht genau darüber und hat den Namen "textedit.zip"!

[Vader]

hallo,

hab die komponente gefunden werd's mir einmal anschauen !

danke mfg vader