没有啊,我用的线程很简单。
unit realcaculateThread;
interface
uses
Classes;
type
TrealcaculateThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
uses realcaculate,fuzhi;
procedure TrealcaculateThread.Execute;
begin
realcaculateForm.Timer1.Enabled:=false;
//计算
realcaculateform.Timer1.Enabled:=true;
end;
end.
realcaculateForm :
rocedure TrealcaculateForm.Timer1Timer(Sender: TObject);
var
ii:integer;
mm:array[12..20] of real;
realthread :TrealcaculateThread;
begin
//赋值
////////
realthread:=TrealcaculateThread.Create(false);
///////////////
end;
end;