Vraag : De vraag van DateTimePicker

Hallo, heeft

I een datetimepicker op mijn vorm, dat ik niet op huidige date.
I heb gezet krijg: GotoDatePicker.Date: = Datum; in krijgt de onShow-Gebeurtenis, maar the
datetimepicker de datum van mijn component JvDays1 van JediVCL.
I hebben gezet één of andere code in code-section.

Who kent het antwoord en is bereid om me te helpen?

Greetings, Peter Kiers
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TMainForm.FormShow (Afzender: TObject);
var
  ResName: Koord;
begin
  GotoDatePicker.Date: = Datum;
 // GotoDatePicker.Date: = EncodeDate (2002, 1, 1);
  TimeIncCombo.ItemIndex: = 1;
  ModeCombo.ItemIndex: = 0;
  DaysCombo.ItemIndex: = 6;
  Met SchedulesQuery 
    probeer
      Open;
      Eerst;
      Terwijl niet EOF 
        Begin
          ResName: = SchedulesQuery.FieldByName („SchedName“) .AsString;
          ResourceCombo.Items.Add (ResName);
          VisibleResources.ResourcesCheckList.Items.Add (ResName);
          Daarna;
        Eind;
      Sluit;
    behalve
      op E: EDBEngineError 
      begin
        ShowMessageFmt ('%s: „#13#10'Try die het gegevensbestand verplaatsen naar een kortere weg. “, [E.Message]);
        Application.Terminate;
        Uitgang;
      eind;
    eind;
  ResourceCombo.ItemIndex: = 0;
  VisibleResources.ResourcesCheckList.Checked [0]: = Waar;
  TFDays.Template.CompNames.Add (VisibleResources.ResourcesCheckList.Items [0]);
  ResourceComboChange (nul);
  DaysComboChange (nul);
  ModeComboChange (nul);
  //GotoDatePicker.Date: = EncodeDate (2002, 1, 1);
  GotoDatePickerChange (nul);
  TimeIncComboChange (nul);
eind;
(**)
procedure TMainForm.GotoDatePickerChange (Afzender: TObject);
begin
  TFDays.GotoDate (GotoDatePicker.Date);
  TFWeeks.DisplayDate: = GotoDatePicker.Date;
  TFMonths.DisplayDate: = GotoDatePicker.Date;
eind;

Antwoord : De vraag van DateTimePicker

gezette initialisering in formcreate, niet formshow

formshow is voor telkens als een vorm wordt getoond
als huid/toon/huid/toon… enz.

probeerde dit?
JvDays1.Date: = Datum;
Andere oplossingen  
 
programming4us programming4us