• alsu
  • Member
  • Offline
  • Registered: 2014-08-27
  • Posts: 52

Topic: default date checking?

sir, how to set default a date time picker component with 1 year after date.?

eg: today date 12/1/2015     so i want default check 12/ 1/ 2016

  • Registered: 2014-02-14
  • Posts: 10,294

Re: default date checking?

Hello,


Please, create an event for the form, which is used to create/edit a record


procedure Form2_OnShow (Sender: string; Action: string);
var
 Y, M, D: Word;
begin
 
  if Action = 'NewRecord' then
  begin
     DecodeDate(Now, Y, M, D);
     Form2.DateTimePicker1.Date := EncodeDate(Y + 1, M, D);
  end;

end;
Dmitry.