问题如题所示!各位大虾!能否给点意见?
解决方案 »
- 求一个队列算法
- DELPHI7中的WEBBROWSER的BUG?
- 为什么我在运行时DBcombobox有下拉列值,可就是选不到框中,这是怎么回事啊?(急等,谢谢!)
- 如何像word一样将图文混排的内容保存到access数据库。
- 怎么样才能达到这样的效果 急!!!!分数不多 就这么多
- 哪位朋友能提供一下vcSkin控件做的界面?
- 简单出错,在线等…
- 当自定义组件的一个属性为一个TDataSet时,我该怎样将这个属性存进对象流中?
- 如何使用SQL删除DBF表中的记录,注意是真正的删除,而不是DELETE
- 在程序中如何显示另一个form?
- 关于IdTCPServer的问题
- D7下创建CGI Stand-alone Executable程序,OnCreate的时候初始化一个TThreadList就出错
begin
Application.ProcessMessages;
end;
用多线程。
Application.ProcessMessages在其它的操作中为此变量赋值
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
flag:boolean;
isbusy:boolean=false;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i,aa:integer;
begin
aa:=0;
if not isbusy then
begin
i:=0; isbusy := true;
flag:=false;
Memo1.Lines.Clear;
while i>=0 do
begin
Application.ProcessMessages;
if flag then
begin
isbusy:=true;
break;
end;
memo1.Lines.Add(inttostr(i));
i:=i+1;
aa:=i;
end;
end
else
begin
flag:=false;
while aa>=0 do
begin
Application.ProcessMessages;
if flag then
begin
isbusy:=true;
break;
end;
memo1.Lines.Add(inttostr(aa));
aa:=aa+1;
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
flag:=true;
end;end.