Problem mit TMaskEdit Feld und Datum

[pauletta82]

hallo,

leider ist der date-time-picker aber nicht von meinen anwendern gewünscht, da dort u.a. immer zwangsläufig ein datum eingestellt sein muss, es muss aber auch die möglichkeit bestehen, dass dieses datumsfeld leer ist bzw. wieder geleert werden kann,
zudem sollte das datum nur anhand von 6 zahlen eingegeben werden (ttmmjj), die "lästige" eingabe des punktes sollte entfallen,
von daher wäre das mask-edit schon optimal, da kann man dann auch das datum wieder löschen und durch die unterstriche anstelle des leer-zeichens ist optisch auch gut erkennbar...
nur zu dumm dass das löschen nicht funktioniert...

ach ja übrigens: da das problem ja auch auf einer ansonsten leeren form auftritt, muss es sich ja um ein grundsätzliches problem handeln, es kann ja dann nicht aufgrund von irgendwelchen eigen geschriebenen funktionen auftreten...

Zitat:

Zitat von p80286

Hallo pauletta,

was ich rübergerecht habe war ein Ausschnit aus der .DFM.
Leider habe ich mich vergallopiert, ich hatte bisher noch keine blonde Verkäuferin zur Hand, mein Beispiel funktioniert auch NICHT wie es soll.

Leider habe ich die Aufruf-Details noch nicht ganz raus, aber so ganz wie in TP7 beschrieben funktioniert MaskEdit nicht:

Zitat:

ValidateEdit validiert EditText nach jedem Tastendruck bzw. nach jedem Versuch, das maskierte Eingabefeld zu verlassen. Stimmt EditText nicht mit der Maske überein, ruft ValidateEdit die Methode ValidateError auf, um eine Exception auszulösen, und setzt den Cursor an die erste Position, die sich nicht mit der Maske deckt.

Falls Deine Datumseingabe sich auf einen rel. engen Zeiraum beschränkt, dann nimm den DateTimePicker ansonsten nimm ein normales TEdit und bastel Dir die Formatprüfung selber (wie von Marabu vorgeschlagen).

@Marabu, nichts für ungut, da hatte ich etwas viel Schwung (3290 ist Blödsinn 3270 ist richtiger) ich kenne tolle Umsetzungen von Maskedit, aber das Original von Borland ist es augenscheinlich nicht.


Grüße
K-H

[marabu]

Hallo Pauletta,

dein Problem löse ich mit einer Ereignisbehandlung für OnKeyDown():

Delphi-Quellcode:

procedure TForm2.DateMaskKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with Sender as TMaskEdit do
    if Key = VK_DELETE then
    begin
      Text := StringOfChar(' ', Length(Text));
      Key := 0;
    end;
end;

Eventuell möchtest du das noch etwas ausfeilen.

Freundliche Grüße

[pauletta82]

hallo marabu,
vielen dank für deine hilfe, das war ein guter tipp, funktioniert auch soweit ganz gut, mit einer ausnahme: wenn ich kein vollständiges datum eingebe (z.b. "15.__.__) und dann die tab-taste drücke bekomme ich wieder denselben fehler, die ereignisse key-up, key-down und key-press scheinen allesamt nicht auf den key=vk_tab zu reagieren. weiß vielleicht jemand woran das liegt bzw. warum das so ist? und welche lösung gibts dafür?

gruß
pauletta82

Zitat:

Zitat von marabu

Hallo Pauletta,

dein Problem löse ich mit einer Ereignisbehandlung für OnKeyDown():

Delphi-Quellcode:

procedure TForm2.DateMaskKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with Sender as TMaskEdit do
    if Key = VK_DELETE then
    begin
      Text := StringOfChar(' ', Length(Text));
      Key := 0;
    end;
end;

Eventuell möchtest du das noch etwas ausfeilen.

Freundliche Grüße