Eilig!! Problem bei Datetimepicker-Componente

[Le Tuan Nguyen]

Hallo alle Profile,
ich habe ein Problem, nach der Auswahl des Datums mit dem Maus möchte ich
das alte Datum (bevor Arbeit mit dem Maus)im DatetimePicker-Component wieder einsetzen. wie Kann ich es tun? Bitte mir ein Beispiel-Code.
Ich danke im Voraus

Tschüs, Nguyen

[Christian Seehase]

Hallo Nguyen,<br>
<br>
das Beispiel benutzt zwei globale Variablen vom Typ TDate, die eine zum Sichern des alten Datums, die andere für das Ergebnis.<br>
Im OnEnter Event wird das Datum in der Komponente gesichert, im OnExit das Ergebnis ausgelesen und das ursprüngliche Datum zurückgesetzt.<br>
<br>
<pre>
var
g_DateSaved : TDate;
g_DateResult : TDate;

procedure TForm1.DateTimePicker1Enter(Sender: TObject);
begin
g_DateSaved := DateTimePicker1.Date;
end;

procedure TForm1.DateTimePicker1Exit(Sender: TObject);
begin
g_DateResult := DateTimePicker1.Date;
DateTimePicker1.Date := g_DateSaved;
ShowMessage(DateTimeToStr(g_DateResult));
end;
</pre>
<br>
Hilft Dir das weiter?<br>
<br>
Ciao<br>
Chri

[Le Tuan Nguyen]

Hallo Chris,
aber dieser Vorgang tut es nicht, solange der der Component besitzt noch Fucos.
Wie kann ich mache, wenn ich mit dem Maus ein Datum auswählen, dann es sofort aktualisiert?
Vielen Dank,
Nguye

[Christian Seehase]

Hallo Nguyen,<br>
<br>
wenn Du auch nach Auswahl mit der Maus das Datum wieder zurücksetzen willst OHNE die Komponente zu verlassen, sollten<br>
die folgenden Zeilen ZUSÄTZLICH weiterhelfen, in denen das CloseUp Event benutzt wird.<br>
(ShowMessage dient natürlich nur zur Überprüfung)
<br>
<pre>
procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
g_DateResult := DateTimePicker1.Date;
DateTimePicker1.Date := g_DateSaved;
ShowMessage(DateToStr(g_DateResult));
end;
</pre>
<br>
Ciao<br>
Chri

[Le Tuan Nguyen]

Vielen Dank Chris