DateTimePicker um 15min erhöhen

[marabu]

Hallo,

spontan würde ich es so angehen:

Delphi-Quellcode:

procedure TDemoForm.DateTimePickerChange(Sender: TObject);
var
  NewDateTime: TDateTime;
  // OldDateTime  als private Variable bei der Form
  // deklarieren und geeignet initialisieren.
begin
  with DateTimePicker do
  begin
    NewDateTime := DateTime;
    if NewDateTime < OldDateTime
      then DateTime := OldDateTime - 15 * OneMinute
      else DateTime := OldDateTime + 15 * OneMinute;
    OldDateTime := DateTime;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu