这种情况下该如何彻底结束程序? 大虾们,程序只有一个窗口,由于需要随时接受消息,所以设了死循环,但是想通过按钮来彻底结束整个进程,可是用terminate的话循环还是在进行,用destroy的话就会出现系统异常提示,该怎么做啊,请大虾指点。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 为什么不用timmer处理呢?unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; isclosed : Boolean;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin isClosed := true; Application.ProcessMessages;end;procedure TForm1.Button2Click(Sender: TObject);begin while true do begin application.HandleMessage; if isclosed then break; end; close;end;end. 请大家帮个忙 关于表中字段自动进行编号的问题... 如何读出 word文件(doc) 中 属性->自定义页面 的内容? 滚动条和记录条数定位问题:在线等 繁體系統,真是煩。來幫忙~ 求救:**自动编码问题** 关于web service的问题(100) 如何检测计算机是否配置有声卡? 地址冲突问题 请问怎样使dbgrid的option属性中的dbediting为true? 在qr报表中怎样动态选择打印机? 如何定义常量数组
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
isclosed : Boolean;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
isClosed := true;
Application.ProcessMessages;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
while true do
begin
application.HandleMessage;
if isclosed then
break; end;
close;
end;end.