Frage : DateTimePicker Frage

Hallo, haben

I ein datetimepicker auf meiner Form, dieser ich erhalten nicht auf dem gegenwärtigen date.
I gesetzt: GotoDatePicker.Date: = Datum; im OnShow-Ereignis aber im the
datetimepicker erhält das Datum meines Bestandteils JvDays1 von JediVCL.
I eingegeben irgendeinen Code in das code-section.

Who kennt die Antwort und ist bereit, mir zu helfen?

Greetings, Peter Kiers 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TMainForm.FormShow (Absender: TObject);
var
  ResName: Schnur;
anfangen
  GotoDatePicker.Date: = Datum;
 // GotoDatePicker.Date: = EncodeDate (2002, 1, 1);
  TimeIncCombo.ItemIndex: = 1;
  ModeCombo.ItemIndex: = 0;
  DaysCombo.ItemIndex: = 6;
  Mit SchedulesQuery tun
    Versuch
      Geöffnet;
      Zuerst;
      Während nicht EOF tun
        Anfangen
          ResName: = SchedulesQuery.FieldByName („SchedName ").AsString;
          ResourceCombo.Items.Add (ResName);
          VisibleResources.ResourcesCheckList.Items.Add (ResName);
          Zunächst;
        Ende;
      Abschluss;
    ausgenommen
      auf E: EDBEngineError tun
      anfangen
        ShowMessageFmt ('%s: „#13#10'Try, welches die Datenbank auf einen kürzeren Weg verschiebt. “, [E.Message]);
        Application.Terminate;
        Ausgang;
      Ende;
    Ende;
  ResourceCombo.ItemIndex: = 0;
  VisibleResources.ResourcesCheckList.Checked [0]: = ausrichten;
  TFDays.Template.CompNames.Add (VisibleResources.ResourcesCheckList.Items [0]);
  ResourceComboChange (Null);
  DaysComboChange (Null);
  ModeComboChange (Null);
  //GotoDatePicker.Date: = EncodeDate (2002, 1, 1);
  GotoDatePickerChange (Null);
  TimeIncComboChange (Null);
Ende;
(*------------------------------------------------------*)
Verfahren TMainForm.GotoDatePickerChange (Absender: TObject);
anfangen
  TFDays.GotoDate (GotoDatePicker.Date);
  TFWeeks.DisplayDate: = GotoDatePicker.Date;
  TFMonths.DisplayDate: = GotoDatePicker.Date;
Ende;

Antwort : DateTimePicker Frage

Initialisierung in formcreate, nicht formshow einsetzen

formshow ist für, jedes Mal wenn eine Form gezeigt wird
wie Fell/… usw. darstellen/Fell/Erscheinen

versuchte dieses?
JvDays1.Date: = Datum;
Weitere Lösungen  
 
programming4us programming4us