DateTimePicker question

Hi,

I have a datetimepicker on my form, that I don't get on the current date.
I have put: GotoDatePicker.Date := Date; in the OnShow-event, but the
datetimepicker gets the date of my component JvDays1 from JediVCL.
I have put some code in the code-section.

Who knows the answer and is willing to help me?

Greetings, Peter Kiers
procedure TMainForm.FormShow(Sender: TObject);
var
  ResName : String;
begin
  GotoDatePicker.Date := Date;
 // GotoDatePicker.Date := EncodeDate(2002, 1, 1);
  TimeIncCombo.ItemIndex := 1;
  ModeCombo.ItemIndex := 0;
  DaysCombo.ItemIndex := 6;
  With SchedulesQuery do
    try
      Open;
      First;
      While not EOF do
        Begin
          ResName := SchedulesQuery.FieldByName('SchedName').AsString;
          ResourceCombo.Items.Add(ResName);
          VisibleResources.ResourcesCheckList.Items.Add(ResName);
          Next;
        End;
      Close;
    except
      on E:EDBEngineError do
      begin
        ShowMessageFmt('%s:'#13#10'Try moving the database to a shorter path.',[E.Message]);
        Application.Terminate;
        Exit;
      end;
    end;
  ResourceCombo.ItemIndex := 0;
  VisibleResources.ResourcesCheckList.Checked[0] := True;
  TFDays.Template.CompNames.Add(VisibleResources.ResourcesCheckList.Items[0]);
  ResourceComboChange(nil);
  DaysComboChange(nil);
  ModeComboChange(nil);
  //GotoDatePicker.Date := EncodeDate(2002, 1, 1);
  GotoDatePickerChange(nil);
  TimeIncComboChange(nil);
end;
(*------------------------------------------------------*)
procedure TMainForm.GotoDatePickerChange(Sender: TObject);
begin
  TFDays.GotoDate(GotoDatePicker.Date);
  TFWeeks.DisplayDate := GotoDatePicker.Date;
  TFMonths.DisplayDate := GotoDatePicker.Date;
end;

Open in new window

LVL 1
peterkiersAsked:
Who is Participating?
 
Geert GConnect With a Mentor Oracle dbaCommented:
put initialisation in formcreate, not formshow

formshow is for every time a form is shown
like hide/show/hide/show ... etc

tried this ?
JvDays1.Date := Date;
0
 
peterkiersAuthor Commented:
When I remove the //  at line: GotoDatePicker.Date := EncodeDate(2002, 1, 1);
and put // at line: GotoDatePicker.Date := Date;
Then it works great but for at startup I get the date 1-1-2002 and not the current date.

Peter Kiers

0
 
peterkiersAuthor Commented:
Yes, it works. Thanks Geert.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.