Editmask zur Formatierung

[Sven Franke]

Ich starte unter Form 1 bei dem Ereignis OnActivte folgende Prozedur, die dafür sorgen soll das ein Datumfeld entsteht. Leider kann ich dieses Datumfeld nach Eingabe nicht mehr entfernen. Ich hoffe mir kann jemand weiterhelfen. Vielleicht auch eine andere Lösung der Formatierung.

procedur TForm1.formcreate(Sender:TObject);
begin
with person.fieldbyname('DKUENDIG') do
begin
editmask:='!99/99/0000;1;_';
end;
end;

[Andreas Horlaender]

Hi <br>
probier mal <br>
FormatDateTime('dd.mm.yyyy hh:mm',Now)

[Sven Franke]

Danke Andreas,

habe ich ausprobiert, sorgt zumindetens dafür das ich nur ein Datum eingeben kann, das Problem ist ich möchte dem Benutzer das Eingabeformat (wie editmask) vorgeben und zum Beispiel die Eingabe der Punkte vermeiden. Nur leider s.o.

Gruß Sve

[Falk Prüfer]

Hallo Sven,

wenn du im zugehörigen DBEdit für das Feld folgendes implementierst:
<pre>
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_CLEAR then person.fieldbyname('DKUENDIG').Clear;
end;
</pre>

dann wird der Inhalt des Feldes beim Ddrücken der 'Entf' Taste komplett gelöscht.

Gruß Fal