TDateTimePicker - TDate und oder TTime? - bitte um Arbeitstipps

[Der schöne Günther]

Entweder verstehe ich das Problem nicht ganz oder du machst es zu kompliziert.

• Einen Picker fürs Datum, einen für die Zeit
• Gib beiden den gleichen OnChange -Handler (hier "handlePickerChange")
• Speichere dir das vom Benutzer ausgewählte TDateTime in einer eigenen Variable:

Delphi-Quellcode:

type
   TForm1 = class(TForm)
      datePicker: TDateTimePicker;
      timePicker: TDateTimePicker;
      procedure handlePickerChange(Sender: TObject);
      private var
         selectedDateTime: TDateTime;
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.handlePickerChange(Sender: TObject);
begin
   if(Sender = datePicker) then
      ReplaceDate(selectedDateTime, datePicker.Date)
   else if(Sender = timePicker) then
      ReplaceTime(selectedDateTime, timePicker.Time);

   Caption := DateTimeToStr(selectedDateTime);
end;