DateTimePicker für 2 Unterschiedliche variablen

[SaFu]

Hi

und zwar habe ich folgendes Problem

Ich Würde gerne mit einem DateTimePicker 2 Variablen nacheinander mit dem Ausgewählten Datum füllen.

Immoment mach ich das mit 2 DateTimepicker wie mache ich das aber mit einem sodas die Benutzerfreundlichkeit erhalten bleib.

so ist mein code

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject);
Var Datum : String;
begin
 LTable.Open;
 LTable.Edit;
 Datum:= DateToStr(Datetimepicker1.Date);
 LTable['Geb']:= Datum;
 DBText2.Caption:= Datum;
end;

procedure TLverwaltun.DateTimePicker2CloseUp(Sender: TObject);
Var EinstDatum : String;
begin
 LTable.Open;
 LTable.Edit;
 EinstDatum:= DateToStr(Datetimepicker2.Date);
 LTable['Einstellung']:= EinstDatum;
 DBText3.Caption:= EinstDatum;
end;

gruss sascha

[DeddyH]

So vielleicht?

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject);
Var Datum : String;
begin
  LTable.Open;
  LTable.Edit;
  Datum:= DateToStr(Datetimepicker1.Date);
  LTable['Geb']:= Datum;
  LTable['Einstellung']:= Datum;
  DBText2.Caption:= Datum;
  DBText3.Caption:= Datum;
end;

Wobei ich mir nicht sicher bin, ob ich das Problem überhaupt verstanden habe.

[SaFu]

Ne da wird ja zweimal das selbe Datum eingetragen

Ich möchte zuertst in das Feld "Geb" das Datum eintragen z.b. 01.10.2007.
danach möchte ich mit dem selben DateTimePicker in Das Feld "Einstellung" auch ein datum eintragen z.b. 12.12.2004 so das ich nur ein DateTimePicker brauche anstatt 2

[DeddyH]

Wenn es sich um 2 verschiedene Datumsfelder handelt, was spricht dann gegen 2 verschiedene DateTimePicker?

[SaFu]

ich wollte halt net soviele benutzen

geht das Irgenwie so vielleicht

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject); 
Var Datum,EinstDatum  : String; 
begin 
 if DBText2 hat focus Then
 begin
  LTable.Open; 
  LTable.Edit; 
  Datum:= DateToStr(Datetimepicker1.Date); 
  LTable['Geb']:= Datum; 
  DBText2.Caption:= Datum; 
 end;

 if DBText3 hat focus Then
  Begin 
   LTable.Open; 
   LTable.Edit; 
   EinstDatum:= DateToStr(Datetimepicker2.Date); 
   LTable['Einstellung']:= EinstDatum; 
   DBText3.Caption:= EinstDatum; 
  end;
end;

[DeddyH]

Bau Dir doch einfach ein privates Boolean-Flag ein.

[SaFu]

??

äh wie

Kannst du mir einen Ansatz geben?

[DeddyH]

Na, im Formular unter private:

Delphi-Quellcode:

FIsGebDatum: Boolean;

Das wertest Du dann aus und setzt es entsprechend.

[SaFu]

Also du meinst also wenn ich einen Click auf das ensprechende Feld mache sol das Flag eine 1 erahlten und ich kann mit dem dateTimePicker diese Feld füllen.
und bei der Null das andere.

habe ich das Richtig verstanden

[DeddyH]

In etwa, nur heißt das bei Boolean halt true und false, aber Prinzip hast Du richtig erkannt.

[SaFu]

So was mach ich falsch

Delphi-Quellcode:

procedure TLverwaltun.DateTimePicker1CloseUp(Sender: TObject);
Var Datum, EinstDatum : String;
begin
 if (DateDatum = True) then
  Begin
   LTable.Open;
   LTable.Edit;
   Datum:= DateToStr(DateTimePicker1.Date);
   LTable['Geb']:= Datum;
   DBEdit9.Text:= Datum;
  end;
 if (DateDatum = False) then
  Begin
   LTable.Open;
   LTable.Edit;
   EinstDatum:= DateToStr(DateTimePicker1.Date);
   LTable['Einstellung']:= EinstDatum;
   DBEdit10.Text:= EinstDatum
  end;
end;

procedure TLverwaltun.DBEdit10DblClick(Sender: TObject);
begin
 DateDatum:= False;
end;

procedure TLverwaltun.DBEdit9DblClick(Sender: TObject);
begin
 DateDatum:= True;
end;

Ich komm nie auf ein True

[SaFu]

Ok habs schon
danke für den Tipp funtz jetzt so wie ich es möchte