Abfrage: Wenn ein Datum in der Zukunft liegt

[himitsu]

stell dir das mal ein bissl um und du siehst, warum es so ist :zwinker;

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then begin 
  if MessageDlg = mrNo then dDatum.SetFocus; 
end else begin 
  XXXXXXX 
end;

wenn du willst, dass das nach dem Else mit zur MessageDlg-Abfrage gehört, dann:

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then
  if MessageDlg = mrNo then 
    dDatum.SetFocus
  else begin 
    XXXXXXX 
  end;