tthreadcomp

type tthreadcomp = class(tactcomponent)

public

  constructor create(); override;

  destructor destroy; override;

  property datapo: pointer; [r]

  procedure run();

  procedure terminate;

  procedure waitfor;

  function lock;

  procedure unlock;

  procedure postevent();

  function waitevent();

  property thread: teventthread; [r]

  property terminated: Boolean; [r]

published

  property options: threadcompoptionsty; [rw]

  property stacksizekb: Integer; [rw]

  property active: Boolean; [rw]

  property onstart: threadcompeventty; [rw]

  property onexecute: threadcompeventty; [rw]

  property onterminate: threadcompeventty; [rw]

  property onterminated: threadcompeventty; [rw]

end;

tthreadcomp

tactcomponent,iactivatorclient

tmsecomponent,ievent,iificommand,iificlient

tcomponent

TObject