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

[Evgenii]

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

[__STDC__]

ну к примеру число можно так вывести

s := datetostr(now);
label1.Caption := copy(s,1,pos('.',s)-1);

аналогично разбирать строку для каждого нажатия на пробел, учитывая их кол-во

[Daramant]

Например вот так:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> ' ' then
    exit;
  if Edit1.Text = '' then
    Edit1.Text := FormatDateTime('dd', Date)
  else
    Edit1.Text := FormatDateTime('dd.mm.eeee', Date);

  Key := Chr(0);
end;

[Evgenii]

а вот было бы еще неплохо вставить дату не в label, а в ячейку dbgrida
Это возможно? или для этого в dbgrid нужно вставлять компонент?

[goblinyara]

DataSource.DataSet.edit;
DataSource.DataSet.FieldByName(имя поля).AsString:= FormatDateTime('dd.mm.eeee', Date);
DataSource.DataSet.post;

[Evgenii]

Спасибо!!!

если этот код написать например в событии oncellclick, то дата в нужной ячейке появляется где бы не был произведен клик. А нужно чтобы появление даты было связано с кликом именно на нужной ячейке. это возможно?

[Вавел из ГМТУ]

Это возможно. Только нужно правильно составить задачу и грамотно к ней подойти.. Я чтото непонял про какую ячейку тут речь идёт?

[vovk]

нужно просто добавить проверку, там ли произошол клик.
В событии oncellclick можно примерно так сделать

if Column.FieldName='Имя поля' then

[Evgenii]

с проверкой получилось. хотел перенести появление даты на нажатие пробела, но там не получается.. Подскажите пожалуйста как изменить код чтобы та же самая процедура выполнялась в событии onkeypress
Хочу уточнить, что нажатие пробела в том случае когда фокус находится на ячейке любого другого столбца, дата не должна появляться

[vovk]

if DBGrid1.Fields[DBGrid1.SelectedIndex].FieldName='Имя поля' then