DateTimePicker um 15min erhöhen

[hermidelphi]

Hallo

Wie erreiche ich das der DateTimePicker die Zeit bei jeden Click um 15min erhöht bzw. vermindert?

mfg
hermidelphi

[SirThornberry]

bei jedem Click? Warauf? beim Klick auf den Picker oder beim Click auf einen Button etc.?

[hermidelphi]

Beim Click auf die Pfeile des Picker

[hermidelphi]

Hallo

Hat keiner eine Idee wie ich den DateTimePicker modifizieren kann?

mfg
hermidelphi

[uwewo]

15 Min = 0,01041667

[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

[hermidelphi]

Hallo

Dank an marabu und uwewo

mfg
hermidelphi