DateTimePicker -> Minimale Uhrzeit ?

[HolgerCW]

Hallo zusammen,

ich kann ja beim DateTimePicker ein Minimales Datum definieren. Das klappt auch bei Kind = dtkDate.

Wenn ich diesen jedoch mit Kind = dtkTime definere, würde ich gerne eine minimale Uhrzeit definieren. Wie geht das ?

Gruss

Holger

[SaFu]

So in etwa nur das du auf kleiner prüfen musst

Delphi-Quellcode:

procedure TForm13.DateMontagChange(Sender: TObject);
Var minTime :String;
begin
 MinTime:= ('12:00:00');
 if MinTime = TimeToStr(DateMontag.Time)then
 begin
   showmessage('Ja');
 end;
end;

Wie gesagt ist nicht perfekt und auch nicht ganz korekt soll nur ein Denkansatz sein

[MSSSSM]

Delphi-Quellcode:

procedure TForm13.DateMontagChange(Sender: TObject);
Var minTime :string;
begin
MinTime:= '12:00:00';
if StrToTime(minTime) < DateMontag.Time then
begin
   showmessage('Ja');
end;
end;

Sollte gehen.

Ungetestet!

[toms]

@MSSSSM: Das verhindert aber nicht, dass die Zeit verändert wird, wenn Sie nicht innerhalb des Bereiches ist.

[MSSSSM]

Delphi-Quellcode:

procedure TForm13.DateMontagChange(Sender: TObject);
Var minTime :string;
begin
MinTime:= '12:00:00';
if StrToTime(minTime) < DateMontag.Time then
begin
   DateMontag.Time:=StrToTime(minTime);
end;
end;

[toms]

Zitat:

Zitat von MSSSSM

Delphi-Quellcode:

if StrToTime(minTime) < DateMontag.Time then

Der Vergleich ist nicht ganz richtig, da Time vom Typ TDateTime ist.
Per Frac(Time) kann die Zeit extrahiert werden.

Richtig ist es so:

Delphi-Quellcode:

if StrToTime(minTime) < Frac(DateMontag.Time) then

[HolgerCW]

Alles klar,

habe es nun umgesetzt. Klappt super. Danke

Gruss

Holger