(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下,运行该程序的反
应.当点usedthread按钮时,则建立一个线程,这时我们可以在程序进行计算的同 【程序编程相关:扫雷外挂的设计与实现(四)】 【推荐阅读:Microsoft Office Inf】时,改变窗体的尺寸及移动它.当按下nousedthread按钮时,不建立线程,我们会发 【扩展信息:重新编译 vcl70.bpl】 现在程序没有计算完之前根本不能做其它任何事情! unit unit1;interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, buttons;type
tform1 = class(tform) usedthread: tbitbtn; nousedthread: tbitbtn; procedure usedthreadclick(sender: tobject); procedure nousedthreadclick(sender: tobject); private { private declarations } public { public declarations } end;var
form1: tform1;implementation
{$r *.dfm}
... 下一页