NumbersOnly bei TDateTimePicker

[Uwe Raabe]

Zitat von JanTera:

(man muss nur ein TDateTimePicker auf eine Form ziehen und ParseInput aktivieren).

Genau das genügt ja offenbar nicht allein, um das Problem nachzuvollziehen.

Wenn es denn so einfach ist, ein Testprogramm zu erstellen, warum schaffst du es dann nach nunmehr 15 Posts immer noch nicht?

[Schokohase]

Da der TE es nicht schafft (oder eher nicht will) einen Source zu liefern um das nachzustellen, hier ist es:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    DateTimePicker1: TDateTimePicker;
    ListBox1: TListBox;
    procedure ApplicationEvents1_Exception(Sender: TObject; E: Exception);
    procedure DateTimePicker1_UserInput(Sender: TObject; const UserString: string; var DateAndTime: TDateTime; var AllowChange: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;

  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ApplicationEvents1_Exception(Sender: TObject; E: Exception);
begin
  // TODO -cMM: TMainForm.ApplicationEvents1_Exception default body inserted
  ListBox1.Items.Add(E.ClassName + ': ' + E.Message);
end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  ApplicationEvents1.OnException := ApplicationEvents1_Exception;

  DateTimePicker1.AlignWithMargins := True;
  DateTimePicker1.Align := alTop;
  DateTimePicker1.ParseInput := True;
  DateTimePicker1.OnUserInput := DateTimePicker1_UserInput;

  ListBox1.AlignWithMargins := True;
  ListBox1.Align := alClient;
end;

procedure TMainForm.DateTimePicker1_UserInput(Sender: TObject; const UserString: string; var DateAndTime: TDateTime; var AllowChange: Boolean);
begin
  // TODO -cMM: TMainForm.DateTimePicker1_UserInput default body inserted
  ListBox1.Items.Add('DateTimePicker1_UserInput ' + UserString);
end;

Folgende Vorgehensweise führt bei Delphi 10.3 zu einem EConvertError :

• Mit der linken Maus-Taste rechts neben dem Datum in den Picker klicken
• Jetzt sollte das ganze Datum markiert sein
• Über die Tastatur den Text morgen eintippen
• Die Enter-Taste drücken

Wie man sieht, sieht man, dass die DateTimePicker1_UserInput Methode nicht aufgerufen wird, aber dafür gibt es den EConvertError

Code:

EConvertError: 'morgen' ist keine gültige Datums- und Uhrzeitangabe

UPDATE

Und zwei Klicks weiter im Debugger hat man auch schon den Übeltäter lokalisiert:

Vcl.ComCtrls - Zeile 28152

Delphi-Quellcode:

      DTN_USERSTRINGA, DTN_USERSTRINGW:
        begin
          DateTimeString := NMDateTimeString;
          with DateTimeString{$IFNDEF CLR}^{$ENDIF} do
          begin
{$IFDEF CLR}
            UserString := Marshal.PtrToStringAuto(pszUserString);
{$ELSE}
            UserString := pszUserString;
{$ENDIF}
            DT := StrToDateTime(UserString); // das ist der Übeltäter
            if Assigned(FOnUserInput) then
            begin
              AllowChange := True;
              FOnUserInput(Self, UserString, DT, AllowChange);
              dwFlags := Ord(not AllowChange);
            end
            else
              dwFlags := Ord(False);
            DateTimeToSystemTime(DT, st);
          end;

Bevor man die Chance bekommt den Eingabestring zu verarbeiten wird dieser schon von der Komponente geparst und es kommt zur Exception.

Könnte sich um einen Bug handeln. Dazu müsste man dieses Verhalten mit der Dokumentation abgleichen, was die Komponente denn so machen sollte.

[Uwe Raabe]

Zitat von Schokohase:

Da der TE es nicht schafft (oder eher nicht will) einen Source zu liefern um das nachzustellen, hier ist es:

Geht doch