Bestemte tal i en maskedit.

kan du ikke tjekke om strengen kan laves om til en valid dato på OnExit?
noget i den her stil:


try
  Result := StrToDate(ditfelt.Text);
except
  begin
    MessageDlg(ditfelt.text+' er ikke en gyldig dato!', mtError,[mbOk], 0);
    ditfelt.setfocus;
  end;
end;

jo, det fungerede fint.
Der er også et andet problem..
Hvis man har haft sine små fedtede fingre nede og pille i maskedit og har slettet indholdet, så kan man ikke få lov til at lukke mit vindue ned hvor den maskedit er i, den skriver at indholdet ikke er gyldigt udfra min maske.
Hvordan lukker jeg formen uden at den skal tage hensyn til indholdet i min mask edit?

Umiddelbart ville jeg have troet at Maskedit1.clear; ville virke, hvis jeg satte det op lige før formen blev lukket, men det har ingen effekt. Den laver en except uanset.

hvis du gerne vil have at man skal kunne gå ud af feltet uden der bliver tjekket om det er en valid dato kan du måske gøre følgende.

nu kender jeg ikke din maske men hvis den fx er: "  -  -    "
kan du bare i din OnExit lave det sådan at den kun tjekker datoen hvis der står noget i feltet:

if ditfelt.text <> '  -  -    ' then
begin
  try
    Result := StrToDate(ditfelt.Text);
  except
    begin
      MessageDlg(ditfelt.text+' er ikke en gyldig dato!', mtError,[mbOk], 0);
      ditfelt.setfocus;
    end;
  end;
end;