Editfeld mit Zahlen

[Adenos]

ich möchte in einem Editfeld nur Zahlen eingeben können. Alles andere soll überhaupt nicht angenommen werden, außer natürlich RETURN. Ich probiere jetzt schon eine ganze Weile mit OnKeyDown herum, aber so langsam habe ich den Verdacht, da gibt es bei Lazarus eine viel elegantere Möglichkeit. Früher gab es mal MaskEdit, aber das scheint es nicht mehr zu geben.

[theo]

Früher gab es mal MaskEdit, aber das scheint es nicht mehr zu geben.

Was meinst du damit?
Wieso soll es das nicht mehr geben?
https://wiki.freepascal.org/TMaskEdit

[Adenos]

oh, Entschuldigung. Das habe ich nicht gesehen. Vielen Dank.

[Winni]

Hi!

MaskEdit finde ich furchtbar. Geht aber auch ohne:

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if NOT (key in [VK_0..VK_9,VK_RETURN,VK_DELETE,VK_BACK  ] ) then key := 0;
end;

Viele bunte Eier wünscht

Winni

[Ally]

Hallo,

schau dir doch mal mein RhsPack im Online-Package-Manager an.
Das Package enthält zwei Komponenten zur Eingabe von Zahlen.

Hier die Beschreibung dazu:

--------------------------------------------------------------------------------------------------------------------------
DecimalNumberEdit ist eine Komponente für die Eingabe von Zahlen.
--------------------------------------------------------------------------------------------------------------------------
Das Eingabefeld akzeptiert nur gültige Zahlen, die über die Eigenschaft Matrix eingegrenzt werden können.

Die Komponente stellt vier neue Eigenschaften zur Verfügung.

1. Matrix (String)
Über diese Eigenschaft wird das Zahlenformat definiert.

Beispiele:
99,99 Erlaubt die Eingabe von Werten im Bereich von 0 bis 99,99 mit zwei Dezimalstellen.
-50,9 Erlaubt die Eingabe von Werten im Bereich von -50,9 bis 50,9 mit einer Dezimalstelle.
250,000 Erlaubt die Eingabe von Werten im Bereich von 0 bis 250 mit drei Dezimalstellen.
-500 Erlaubt die Eingabe von Werten im Bereich von -500 bis 500 ohne Dezimalstellen.


2. Value (Extended)
Liefert den Extendedwert des eingegebenen Wertes zurück.
Dieser Wert kann während der Eingabe ausgewertet werden und repräsentiert den im Eingabefeld aktuell eingegebenen Wert.


3. EnterKey (Boolean)
Gestattet den Einsatz der Entertaste analog zur Tab-Taste.


4. WarningTone (Boolean)
Gibt einen Warnton aus, wenn unzulässige Eingaben gemacht werden.


Unter Windows werden die Lokalisierungseinstellungen wie z.B. der DecimalSeparator automatisch übernommen.
Soll das Projekt auch unter Linux / Unix die Lokalisierungseinstellungen verwenden,
sollte man den Projekt-Uses den Eintrag clocale hinzufügen.

Beispiel:

uses
{$IFDEF UNIX}{$IFNDEF DARWIN}
clocale, // Setzt die Lokalisierungseinstellungen (Zahlen-, Datums- und Zeit-Formate)
{$ENDIF}{$ENDIF}
SysUtils, Forms, ......



--------------------------------------------------------------------------------------------------------------------------
NumberEdit ist eine Komponente für die Eingabe von ganzen Zahlen.
--------------------------------------------------------------------------------------------------------------------------
Das Eingabefeld akzeptiert nur die Ziffern 0-9, wobei auch führende Nullen zulässig sind.

Die Komponente stellt zwei neue Eigenschaften zur Verfügung.

1. EnterKey (Boolean)
Gestattet den Einsatz der Entertaste analog zur Tab-Taste.


2. WarningTone (Boolean)
Gibt einen Warnton aus, wenn unzulässige Eingaben gemacht werden.

[gladio]

Falls es nur um einfache ganze Zahlen geht, gibt es die Eigenschaft NumbersOnly (true/false) für TEdit.
Hat aber Probleme mit Vorzeichen und Komma.

[wp_xyz]

Oder nimm die standardmäßig vorhandenen TSpinEdit, TFloatSpinEdit auf der "Misc"-Palette, oder TSpinEditEx, TFloatSpinEditEx auf der "LazControls"-Palette. Letztere haben auch den Vorteil, dass man die Up/Down-Buttons ausblenden kann (UpDownVisible := false), so dass sich die Controls visuell nicht von TEdit unterscheiden.

[Adenos]

MaskEdit finde ich furchtbar. Geht aber auch ohne:

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if NOT (key in [VK_0..VK_9,VK_RETURN,VK_DELETE,VK_BACK  ] ) then key := 0;
end;

ja, vielen Dank. Das finde ich auch viel besser.

[wennerer]

Hi,
ich verwende auch gern mal "strtointdef".
https://www.freepascal.org/docs-html/rt ... ntdef.html

Viele Grüße
Bernd

[PascalDragon]

ich verwende auch gern mal "strtointdef".
https://www.freepascal.org/docs-html/rt ... ntdef.html

Aber das verhindert nicht, dass der Nutzer ungültige Zeichen eingeben kann. Es ist vom Standpunkt der Nutzbarkeit sinnvoller dies schon von vornherein zu verhindern.

[Adenos]

if NOT (key in [VK_0..VK_9,VK_RETURN,VK_DELETE,VK_BACK ] ) then key := 0;

welche Tastencodes haben denn die Zahlen auf dem rechten Zahlenfeld? Ich habe es mit VK_NUMPAD0..VK_NUMPAD9 probiert, aber das funktioniert nicht.

[Winni]

Hi!

Keine Ahnung.

Aber versuche es doch mal mit:

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage (IntToStr(key));
end; 

Winni

[wp_xyz]

if NOT (key in [VK_0..VK_9,VK_RETURN,VK_DELETE,VK_BACK ] ) then key := 0;

welche Tastencodes haben denn die Zahlen auf dem rechten Zahlenfeld? Ich habe es mit VK_NUMPAD0..VK_NUMPAD9 probiert, aber das funktioniert nicht.

Was heißt "funktioniert nicht"? Bei mir "funktioniert" es mit VK_NUMPAD0..VK_NUMPAD9 (die VK_* Berzeichner benötigen Unit LCLType in "uses").

[Adenos]

VK_0..VK_9 haben auch ohne die Unit LCLType funktioniert, aber für VK_NUMPAD0..VK_NUMPAD9 braucht man sie. Komisch, aber ich versteh so viel nicht.

[Winni]

VK_0..VK_9 haben auch ohne die Unit LCLType funktioniert, aber für VK_NUMPAD0..VK_NUMPAD9 braucht man sie. Komisch, aber ich versteh so viel nicht.

Hi!

VK_0..VK_9 sind in LCLtype definiert. Also brauchst Du auch für die diese Unit.

Winni