如何去判断MEMO在一段时间有没有内容输入

Question

请给出具体思路和代码头想晕了，在这里求助一下大众的脑袋

Answer 1

memo的onkeypress事件里，记录下时间。

Answer 2

可以用定时器TTimer,下面提供另外一种思路：
  private
    { Private declarations }
    FTime: Cardinal;
    FModified: Boolean;procedure TForm1.Button1Click(Sender: TObject);
begin
  if (GetTickCount - FTime < 5000) and (FModifed = True) then
    ShowMessage('5秒内Memo1有内容输入');
  FTime := GetTickCount;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FTime := GetTickCount;
end;procedure TForm1.Memo1Change(Sender: TObject);
begin
  FModifed := True;
end;
其中：GetTickCount返回（retrieve）从操作系统启动到现在所经过（elapsed）的毫秒数。