Вопрос по использованию системной даты в программе Опции

[1147]

В программе нужно постоянно вводить текущую дату в dbedit1. Видел такой вариант, когда вместо того чтобы вводить дату самому, при нажатии пробела автоматически вводится сначала число, затем при втором нажатии пробела - месяц, при третьем год и сразу же переход курсора в dbedit2. Т.е. программа берет системную дату и помещает ее в нужное поле. Подскажите пожалуйста, как реализовать такой вариант???

[volvo]

Так?

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);

  function Conv(w: word; len: integer): string;
  begin
    result := IntToStr(w);
    while Length(result) < len do result := '0' + result;
  end;

var curr: TDbEdit;
begin
  if Key = #32 then begin
    curr := Sender as TDbEdit;
    case Length((Sender as TDbEdit).Text) of
      0: curr.Text := Conv(DayOf(Now), 2) + '/';
      3: curr.Text := curr.Text + Conv(MonthOf(Now), 2) + '/';

      // Тут можно и не менять, год всегда четырехзначный
      6: curr.Text := curr.Text + Conv(YearOf(Now), 4);
    end;
    curr.SelStart := Length(curr.Text);
    curr.SelLength := 0;
    Key := #0;
  end;
end;

[1147]

Большое спасибо за неоценимую помощь, основная проблема решена, а с маской придумаю что-нибудь