Ошибка при работе с потоками

[vitalik007]

у меня выдает ошибку Canvas does not allow drawing
Когдат работаю с потоками.
Как предотвратить ошибку??

[mihali4]

Как предотвратить ошибку

Выдать "страшный" секрет - привести код...
Дело в том, что все телепаты у нас нынче "в отпусках", а мы сами, как вы понимаете, не очень...

[BOBAH13]

Было такое. Видимо вызов обработчиков из других потоков, используйте синхронную обработку в вашем потоке ( в Execute обработчике ) думаю это исправит ошибку. Проверьте так же присваивания Parent, и на верность существования объектов точно сказать не могу в чем дело. Но после синхронизации и пару проверок типа Assigned(Pointer) все стало нормально

[vitalik007]

unit potok;

interface

uses
  Classes,sysutils,dialogs,functionsunit;

type
  typeofthread = class(TThread)
  private
  procedure proc1;
  protected
    procedure Execute; override;
  public

  tip:(tip1,tip2);
  flag:boolean;
  fname:string;
  end;


var
namethread:typeofthread;
implementation

procedure typeofthread.Execute;
var i:integer;
begin
if not flag then begin
if tip=tip1 then proc;
end;

procedure typeofthread.proc1;
begin
DoProcedure(fname);
end;
end;

Doprocedure описана в другом модуле

[Carbon]

Synchronize

[BOBAH13]

Сообщение от Carbon

Synchronize

if tip=tip1 then Synchronize(proc);

[vitalik007]

Спасибо большое!