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