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.