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

[andreash]

Hallo,

wie wär's, wenn du den inkonsistenten Zustand durch eine Zugriffsfunktion für die Eigenschaft InputTyp beseitigst. So in der Art:

Delphi-Quellcode:

procedure TEDEEdit.SetVIT(const Value: TInputtypes);
Var
  rTest: Extended;
begin
  If VIT <> Value Then
  Begin
   If Value = InpInteger Then
     Text := IntToStr(StrToIntDef(Text, 0))
   Else
   If Value = Inpfloat Then
   Begin
    If Not TryStrToFloat(Text, rTest) Then
      Text := '0'
   End;
   VIT := Value;
  End;
end;