G grade Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-13 #21 我的这个事件是Memo的OnChange事件 我要的是当Memo中的文字不再变化时（最后一个文字输入后） 再延迟2分钟,然后发生一个事件
N nunimao Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-13 #22 还是用wm_ontime消息比较好，它的优先权较低，可以使用1次/秒。在delphi就放个timer， 设定interval为1000。用堵塞方法会使你的程序交互性丧失，最好别用。
Y yangxiangjun Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-14 #24 用TIMER做个判断，大于等两分钟则....
L libin06 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-23 #25 放一个Timer，设置Interval:=120000 procedure TForm1.Memo1Change(Sender: TObject); begin Timer1.Enabled := false; Timer1.Enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin ShowMessage('send msg'); //放入你自己的代码 end;
放一个Timer，设置Interval:=120000 procedure TForm1.Memo1Change(Sender: TObject); begin Timer1.Enabled := false; Timer1.Enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin ShowMessage('send msg'); //放入你自己的代码 end;
