Datumsfelder

[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;