Показать сообщение отдельно
  #2  
Старый 18.03.2008, 13:19
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Код:
procedure TForm1.DBMemo1Enter(Sender: TObject);
begin
  DBMemo1.Text:= DateToStr(Now);
end;
Ответить с цитированием