多线程方式绘图

Question

DEL your .exe,then try again!

Answer 1

1、估计你的程序正在运行中，所以无法创建输出文件，关掉就可以了；
2、这种情况可以用回调方式实现，如：
//线程单元
type 
  TThreadRun = procedure(AParam: Pointer) of object;
...
procedure TMyThread.Create(AMethod: TThreadRun; AParam: Pointer);
begin
  FParam := AParam;
  FOnRun := AMethod;
  inherited Create(False);
end;procedure TMyThread.Execute;
begin
  if Assign(FOnRun) then 
    FOnRun(AParam);
end;//调用线程的单元
procedure TMainForm.Button1OnClick(Sender: TObject);
begin
  FMyThread := TMyThread.Create(OnRun, @SomeParam);
end;procedure TMainForm.OnRun(AParam: Pointer);
begin
  //DBGrid1......
end;

Answer 2

Could not create output file '***.exe'
只有两种可能：
   一是该程序已在运行
   二是程序文件只读