TDateTimePicker: selektierten Bereich ermitteln/setzen

[Daniel L.]

Das Ändern von kind hab ich mal mit einem Timer getestet (um den Fokus auf den Picker nicht zu verlieren):
Die Date - und Time Werte bleiben erhalten, aber nach der Änderung wird immer der erste Bereich im Edit selektiert, man müsste dann eben den vorherigen Bereich per Code wieder erneut selektieren.

Also mit entsprechenden OnChange/Click/Keydown...Reaktionen sollte das zu machen sein -
wenn ich an die Selektierungen rankäme...

Ich gebe zu, daß TDateTimePicker dafür nicht wirklich konzipiert ist und es ein ziemliches Gefrickel wäre - aber mich nervt es immer wieder, dass man für die Aufnahme eines vollständigen TDateTime Wertes immer 2 Picker brauch, deren Werte man dann addiern muss.

Und eine brauchbare Fremdkomponente (am besten dann auch als datensenitive Variante) hab ich noch nicht gefunden.

Daniel

[Uwe Raabe]

Du könntest es vielleicht mit einer Interceptor Class erreichen, die das CN_NOTIFY abfängt:

Delphi-Quellcode:

type
  TDateTimePicker = class(Vcl.ComCtrls.TDateTimePicker)
  private
    procedure CNNotify(var Message: TWMNotifyDT); message CN_NOTIFY;
  end;

procedure TDateTimePicker.CNNotify(var Message: TWMNotifyDT);
var
  DT: TDateTime;
begin
  DT := DateTime;
  if (Message.NMHdr^.code = DTN_DATETIMECHANGE) and (Message.NMDateTimeChange^.dwFlags = GDT_VALID) then begin
    DT := SystemTimeToDateTime(Message.NMDateTimeChange^.st);
  end;
  inherited;
  DateTime := DT;
end;

[Daniel L.]

Ok, da ist einiges Neues für mich dabei, in das ich mich erst einarbeiten muß.

Wenn ich nicht weiterkomme, werd ich hier nochmal weiterposten.

Erstmal vielen Dank!

Daniel

[Uwe Raabe]

Zum Thema Interceptor Class hier ein guter Artikel von Žarko Gajić: Delphi Interceptor (/Interposer) Classes -> TButton = class(TButton)

Sicher hilft auch ein Blick in die originale TDateTimePicker.CNNotify in Vcl.ComCtrls um zu verstehen, wie der Code funktioniert.