NumbersOnly bei TDateTimePicker

[philipp.hofmann]

und es einfach in KeyDown abfangen?

Delphi-Quellcode:

procedure TicTrainerF.cbLegRatioKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (pos(keyChar,'0123456789')<=0) then
  begin
    keyChar:=#0;
    exit;
  end;
end;

[taveuni]

Oder einfach diese Spezifische Exception selbst abfangen (behandeln)?

[haentschman]

Oder einfach...den User nicht das Datum manuell eingeben lassen. Aus Erfahrung erleichert das das Handling. Den DateTimePicker.Date sinnvoll vorzubelegen ist natürlich Voraussetzung.

[Delphi.Narium]

Im Ereignis OnUserInput den Eingabestring prüfen und die Änderung nur erlauben, wenn ein gültiges Datum vorliegt.

PS.:

Mir gelingt es nicht bei meiner Delphiversion beim TDateTimePicker was anderes als Ziffern einzugeben. Buchstaben, Sonderzeichen ... werden nicht angenommen und führen zu keinerlei Reaktion seitens der Komponente.

Daher bitte Quelltext und kompilierte Version hier anhängen, so dass man das prüfen kann, eventuell liegt ein Fehler vor, der nur die von Dir genutzte Delphiversion betrifft.

[JanTera]

Danke an Delphi.Narium für die erste hilfreiche Antwort.

Ich kann leider die Kompilierte Version nicht einfach so anhängen, da sie 1. viel zu gross ist und 2. nicht open-source ist.

Ich nehme an, du kannst nur Ziffern eingeben, da du die Eigenschaft ParseInput nicht auf true hast. Leider muss in meinem Fall ParseInput an sein.

Das mit onUserInput werde ich versuchen.

Danke!

PS: Ich benutze delphi XE8

[H.Bothur]

Zitat von JanTera:

Danke an Delphi.Narium für die erste hilfreiche Antwort.

Hilfreich waren auch die anderen Antworten - übrigens auch wenn Du nicht den ganzen Source hier reinstellen kannst dann wärees geschickt gewesen ein Miniprogramm zu erstellen bei genau dieser Fehler vorkommt. Du wirst wohl nicht von den anderen ier Anwesenden erwarten das die das alle bei sich nachstellen, oder ?

Gruß
Hans

[JanTera]

@h.bothur
Sie waren eben nicht besonders hilfreich. Aber ich habe auch nicht gut erklärt was mein Problem ist, also ist es eher meine Schuld

Ich erwarte auf jeden Fall nicht, dass das jeder hier bei sich nachstellt. Auch wenn es nicht lange dauern würde (man muss nur ein TDateTimePicker auf eine Form ziehen und ParseInput aktivieren).

[Moombas]

Zitat von JanTera:

@h.bothur
Sie waren eben nicht besonders hilfreich. Aber ich habe auch nicht gut erklärt was mein Problem ist, also ist es eher meine Schuld

Ich erwarte auf jeden Fall nicht, dass das jeder hier bei sich nachstellt. Auch wenn es nicht lange dauern würde (man muss nur ein TDateTimePicker auf eine Form ziehen und ParseInput aktivieren).

Jeder der dir helfen möchte, wird es ggf. bei sich eben kurz nachstellen. Das ist zur Fehlerfindung auch ggf. notwendig. Aktuell sieht es so aus, das der Fehler bei dir woanders herrührt oder der Fehler nur in der Delphi Version die du nutzt vorhanden ist.
Um das zu prüfen, müsstest du eben genau das machen was du beschrieben hast:

Eine Form erstellen, TDateTimePicker rauf schieben, Programm starten und versuchen Buchstaben etc. einzugeben. Ergebnis zur weiteren Fehlersuche nutzen. Ein schnelleres Ergebnis kannst du nicht haben.

[Delphi.Narium]

Wenn man ParseInput auf True stellt, wird das Ereignis onUserInput aufgerufen. Mir scheint in diesem Zusammenhang zwingend, dieses Ereignis auch auszuwerten und die Eingabe auf Gültigkeit zu prüfen. Man sagt durch ParseInput = True quasi: "Lieber DateTimePicker, kümmere Dich nicht um die Eingabe, das mach' ich selber."

Allerdings bekomme ich auch hier (ohne das Ereignis OnUserInput zu verarbeiten) beim Verlassen des TDateTimePickers, ohne gültige Eingabe, eine sinnvolle Fehlermeldung.

Es könnte sein, dass die Attribute Format und Kind (eventuell auch noch weitere) da irgendwie mit hineinspielen.

[JanTera]

ja.