Solved

DateTimePicker question

Posted on 2010-08-20
3
412 Views
Last Modified: 2012-05-10
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

0
Comment
Question by:peterkiers
  • 2
3 Comments
 
LVL 1

Author Comment

by:peterkiers
ID: 33488778
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
 
LVL 36

Accepted Solution

by:
Geert Gruwez earned 500 total points
ID: 33488923
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
 
LVL 1

Author Comment

by:peterkiers
ID: 33488928
Yes, it works. Thanks Geert.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now