TEDEEdit - Edit zur Eingabe von String, Integer oder Float

[EDatabaseError]

So nochmal eine Komponente von mir:

TEDEEdit - Edit zur Eingabe von String, Integer oder Float - AutoDisable Funktion - Disablefarben einstellbar - Clipboard

Da es hier oft Beitäge gibt wie:

Zitat:

Ich will nur Zahlen eingeben

Deshalb hab ich jetzt dieses Edit gemacht.

Es besitzt folgende Zusatzfunktionen:

• Eine Property Namens InputTyp in der man den Eingabetyp festlegen kann. (InpString, InpInteger, InpFloat)
• Eine Property Namens DisabledTextColor um die Farbe des Textes festzulegen wenn das Edit disabled ist.
• Eine Property Namens DisabledColor um die Farbe des Edits bei disabled festzulegen.
• Eine Property Namens AutoDisabled um das Edit nach der Eingabe bestimmter zeichen automatisch zu disablen.
• Eine Property Namens CopyToClipboard um bei Change oder Enter die Eingabe ins Clipboard zu kopieren.
• Eine Property Namens MatchText und Match wobei Match true annimmt wenn Matchtext = Text ist.

Bitte schaut euch diese Komponente an und gebt eure Meinung dazu ab.

[Also ein normales edit kann das alles nicht ]

Mfg
tobi

[Sharky]

Hmmm...

gibt es denn keine negativen Integer und Floatwerte?
Und was passiert wenn das Dezimaltrennzeichen kein Komma sondern ein Punkt ist?

[Jürgen Thomas]

Entschuldigung, aber wozu braucht man dies wirklich?

Delphi liefert TMaskEdit genau für solche Fälle.

NET bietet NumericUpDown mit direkter Edit-Möglichkeit. Zusätzlich können RegularExpressions verwendet werden.

Auf Jedi verzichte ich; aber da es in der RxLibrary Ähnliches gab, nehme ich an, dass auch Jedi numerische Edits enthält.

Genügt das nicht? Jürgen

[xZise]

Zitat von Jürgen Thomas:

Delphi liefert TMaskEdit genau für solche Fälle.

Hä? Wie willst du da die Eingabe beschränken?

Also ich finde da nichts, welches die Eingabe nur von Zahlen beschränkt!

[EDatabaseError]

@Sharky
hab ich auch schon gemerkt. Da kommt gleich was neues

Bei einem Maskedit musst du eine Maske definieren. Bei einer dem ding sagst du was du eingibst und fertig. Das ist der Sinn

Mfg
Tobi

//NEW VERSION

[EDatabaseError]

Neue Version online bei der die Farbe eingestellt werden kann wenn es Disabled ist!

Mfg
Tobi

[EDatabaseError]

So nochmal eine neue Version und immernoch nur 8 Downloads

Also alles neue steht oben

Mfg
Tobi

[andreash]

Hallo!
Wenn InputType = InpFloat und der Text Alphazeichen enthält, z.B. weil der Text nach dem Einfügen gleich dem Komponentenname ist, kann man keine Zeichen eingeben.

[andreash]

Ein Alignment wäre doch auch nett und ist einfach umszusetzen. Ich hoffe, es ist nicht zu vermessen hier eine mögliche Lösung zu posten.

Delphi-Quellcode:

procedure TEDEEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of Cardinal=(ES_LEFT,ES_RIGHT,ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style:=Params.Style or Alignments[FAlignment];
end;

[EDatabaseError]

Zitat von andreash:

Hallo!
Wenn InputType = InpFloat und der Text Alphazeichen enthält, z.B. weil der Text nach dem Einfügen gleich dem Komponentenname ist, kann man keine Zeichen eingeben.

hab ich auch festgestellt. leider kann ich im Create den Text nicht löschen deshalb musst du im FOrmOnCreate oder im OI den Text löschen.

Zitat von andreash:

Ein Alignment wäre doch auch nett und ist einfach umszusetzen. Ich hoffe, es ist nicht zu vermessen hier eine mögliche Lösung zu posten.

Delphi-Quellcode:

procedure TEDEEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of Cardinal=(ES_LEFT,ES_RIGHT,ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style:=Params.Style or Alignments[FAlignment];
end;

wird gemacht