Datumsfelder

[rbest]

Hallo Kollegen,
habe wieder mal ein Anfängerproblem. Habe eine Funktion für Datumsergänzung geschrieben. Die macht z.B. im Exit aus "1203" den "12.03.2004". Das klappt mit Enter hervorragend, aber bei Tab bringt Delphi eine Meldung "Falsches Datum", bevor ich zu meiner FillUp-Funktion komme.

Wie krieg ich das gebacken? Form.KeyPreview ist übrigens True.

[Sharky]

Hai rbest,

auf welchem Objekt bassiert denn deine Erweiterung?
Und warum geht es bei Enter? Hast Du es extra programmiert das das Objekt mit Enter verlassen wird?

[rbest]

genau, ich habe im FormKeyPress ein SelectNext bei #13. Das Objekt ist abgeleitet. Nachstehend der (abgespeckte) Code der Komponente.

Delphi-Quellcode:

  TDBEdit_Norm  = class(TDBEdit)
  public
    procedure DoEnter; override;
    procedure DoExit; override;


procedure TDBEdit_Norm.DoExit();
var
  ldDate: TDateTime;
begin
  if not ReadOnly and not empty(Text) and (DataTyp = 'D') then
      Text := FillupDateStr(Text);
end;