G
gaozhou
Unregistered / Unconfirmed
GUEST, unregistred user!
有三个事件。
procedure form1show(sender
bject);
begin
works;
end;
procedure form1close(senderbject);
begin
a1 := 0;
a2 := 0;
end;
procedure button1click(senderbject);
begin
close;
end;
procedure works
var
i:integer;
begin
for i:= 1 to 500 do
begin
application.postmessage;
sleep(1);
//这里做了一些动作
end;
end;
当点击button1时，应该退出系统，但是结果是执行到了sleep(1)这条语句。
谁能告诉我是为什么吗？
procedure form1show(sender
bject);begin
works;
end;
procedure form1close(sender
bject);begin
a1 := 0;
a2 := 0;
end;
procedure button1click(sender
bject);begin
close;
end;
procedure works
var
i:integer;
begin
for i:= 1 to 500 do
begin
application.postmessage;
sleep(1);
//这里做了一些动作
end;
end;
当点击button1时，应该退出系统，但是结果是执行到了sleep(1)这条语句。
谁能告诉我是为什么吗？