TSpinEdit Fragen

[Bernd Nowak]

Hallo alle,
habe folgendes Problem. Habe ein Eingabe Feld in dem Integer Werte eingetragen werden. Wenn ich es mit TEdit realisiere muss ich natürlich bei Verlassen Testen ob String oder Integer eingetragen wurde.
Habe dann TSpinEdit gefunden und finde das besser. Hier wundere ich mich aber über die Eigenschaft EditorEnabled True/False. Ist dieser Wert True kann ich Daten eingeben oder aber mittels Spin Controls um den Increment Wert erhöhen. Dann kann ich natürlich auch die Entfernungstaste drücken und den Wert löschen womit ich beim Hinausgehen ein Problem habe (nix ungleich Integer).
Stell ich EditorEnabled auf False kann ich keine Daten eingeben aber die Entfernen Taste benutzen und erhalte natürlich wieder die gleiche Fehlermeldung.
Wie macht ihr das ? Tips ?

[Pfoto]

Hallo!

ich habe eben mal was ausprobiert und es funktioniert,
schreibe das hier in das OnKeyDown Ereignis der Komponente:

Delphi-Quellcode:

  If (Key = VK_DELETE) and (length(TSpinEdit(Sender).Text) = 1) then
    Key:= 0;

Man könnte es auch noch folgendermaßen erweitern,
falls der Wert automatisch auf "0" gesetzt werden soll:

Delphi-Quellcode:

  If (Key = VK_DELETE) and (length(TSpinEdit(Sender).Text) = 1) then
  begin
    Key:= 0;
    TSpinEdit(Sender).Value:= 0;
  end;

Gruß
Pfoto

[dr. love]

Ich würde das so lösen: Stell die Editierfunktion auf true, dann kann sich der User aussuchen, ob er ne Zahl tippen oder den Spinbutton nutzen will. Um den eingegebenen Wert z.B. in die Variable z einzulesen machst du folgendes:

Delphi-Quellcode:

try
  z:=IntToStr(Edit1.Text)
except
 begin
  Edit1.text:='0';
  z:=0;
  ShowMessage('Kein Korrekte Eingabe. Z wurde auf 0 gesetzt.');
 end;

[Bernd Nowak]

Super !

Entschuldigung für die 'blöden' Fragen, mache das in meiner Freizeit und bin froh wenns am Ende funktioniert. Und die Hilfe in TurboDelphi 2006 ist nicht so gut wie die aus Delphi 7. Dort kam mir die Hilfe irgendwie besser vor ;)