这样的延时执行怎么做?

Question

本帖最后由 happinessdepig 于 2009-12-02 17:10:02 编辑

Answer 1

你可以不用再editchange事件中去做，用keypress事件去触发，这样的话可以控制当key=#13的时候出发你输入的内容

Answer 2

我晕。。原来用Timer就可以了

Answer 3

原来这么简单。。唉..
procedure TForm1.Edit1Change(Sender: TObject);
begin
 Timer1.Enabled := False;
 if Length(Trim(Edit1.Text)) > 0 then Timer1.Enabled := true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := False;
 ShowMessage('1秒');
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then
  begin
   Timer1.Enabled := False;
   showmessage(edit1.Text);
  end;
end;