home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / ChipCD_1.03.iso / zkuste / delphi / unity / d56 / FNDUTL.ZIP / System / cThreads.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-07  |  1.1 KB  |  51 lines
  1. {$INCLUDE ..\cDefines.inc}
  2. unit cThreads;
  3.  
  4. interface
  5.  
  6. uses
  7.   // Delphi
  8.   Classes;
  9.  
  10.  
  11.  
  12. {                                                                              }
  13. { TThreadEx                                                                    }
  14. {                                                                              }
  15. type
  16.   TThreadEx = class (TThread)
  17.     public
  18.     // Make TThread's Synchronize method public
  19.     Procedure Synchronize (Method : TThreadMethod);
  20.  
  21.     // Make TThread's Terminate method virtual
  22.     Procedure Terminate; virtual;
  23.  
  24.     // Make Terminated property public
  25.     Property  Terminated;
  26.   end;
  27.  
  28.  
  29.  
  30. implementation
  31.  
  32.  
  33.  
  34. {                                                                              }
  35. { TThreadEx                                                                    }
  36. {                                                                              }
  37. Procedure TThreadEx.Synchronize (Method : TThreadMethod);
  38.   Begin
  39.     inherited Synchronize (Method);
  40.   End;
  41.  
  42. Procedure TThreadEx.Terminate;
  43.   Begin
  44.     inherited Terminate;
  45.   End;
  46.  
  47.  
  48.  
  49. end.
  50.  
  51.