Corriger la valeur sur datetimepicker lorsque l'utilisateur sélectionne une date

Question

Lorsqu'un utilisateur sélectionne une valeur dans mon TDateTimePicker, je souhaite remplacer la valeur à définir par le début de la semaine correspondant à la valeur sélectionnée.

J'ai essayé de le définir dans l'événement OnChange, mais la valeur initialement sélectionnée sera définie juste après la fin de l'événement.

Comment procéder?

Answer 1

utiliser l'événement "OnCloseUp" - cet exemple fonctionne pour moi (Delphi 7, Windows XP)

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, ComCtrls, DateUtils, StdCtrls; 

type 
    TForm1 = class(TForm) 
    dtp1: TDateTimePicker; 
    btn1: TButton; 
    edt1: TEdit; 
    procedure btn1Click(Sender: TObject); 
    procedure dtp1CloseUp(Sender: TObject); 
    private 
    { Private declarations } 
    procedure SetDayToMonday(); 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.SetDayToMonday; 
begin 
    dtp1.DateTime := dtp1.DateTime - DayOfTheWeek(dtp1.DateTime) + 1; 
end; 

procedure TForm1.dtp1CloseUp(Sender: TObject); 
begin 
    SetDayToMonday; 
end; 

end. 

:-) --reinhard

Answer 2

Utilisez l'événement onUserInput!

Answer 3

Je posterais un message au formulaire, définirais un message (WM_USER + 1000 + X), le posterais, et le manipulerais. Si vous ne le faites pas, vous pouvez également faire un PendingDateTimeTimer: TTimer qui effectue une validation légèrement plus tard (disons 10msec) après que l'événement OnChange a défini PendingDateTimeTimer.Enabled: = true.