Zitat von
juergen:
Hallo guitar1,
zu 1.)
im OnKey.....
...neee, lass das, sonst wird copy and paste nämlich nicht verhindert. Außerdem hättest du dann nicht die schöne Abfrage, ob 2mal '-' vorkommt usw. Ich nehme an, du machst es über's OnChange.
Was du dann tust:
Du bringst eine Fehlermeldung und löscht das letzte Zeichen des Strings.
Was ich besser fände:
Du bringst keine Fehlermeldung. Außerdem löschst du nicht das letzte Zeichen, sondern das, was zuletzt eingegeben wurde. Wenn man Copy and Paste benutzt können das auch mehrere Zeichen sein. Du solltest den aktuellen String, der im Edit steht als Flag speichern. Im OnChange steht dann sowas wie:
Delphi-Quellcode:
if EingabeIstKorrekt then
Flag := Edit.Text
else
Edit.Text := Flag;
Sonst gefällt mir dein Programm recht gut. Auch äußerlich ist es recht übersichtlich und durch die vielen Shortcuts leicht zu bedienen
Das mit "wirklich schließen" könntest du aber wirklich weglassen, stört einfach nur.