Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=726766

===============================================

另一个例子:http://topic.csdn.net/t/20011015/02/323001.html

   unit    Unit1;   
    
   interface   
    
   uses   
       Windows,    Messages,    SysUtils,    Variants,    Classes,    Graphics,    Controls,    Forms,   
       Dialogs,    StdCtrls,    ExtCtrls;   
    
   type   
       TForm1    =    class(TForm)   
           Button1:    TButton;   
           Edit1:    TEdit;   
           Image1:    TImage;   
           procedure    Button1Click(Sender:    TObject);   
       private   
           {    Private    declarations    }   
       public   
           {    Public    declarations    }   
       end;   
    
       TMyThread    =    class(TThread)   
       private   
           child    :    TComponent;   
    
       public   
           procedure    draw;   
           constructor    Create(parent    :    TComponent);   
           procedure    Execute;    override;   
    
       end;   
    
   var   
       Form1:    TForm1;   
   implementation   
    
   {$R    *.dfm}   
    
   {    TMyThread    }   
    
   constructor    TMyThread.Create(parent:    TComponent);   
   begin   
       child    :=    parent;   
       inherited    Create(false);   
   end;   
    
   procedure    TMyThread.draw;   
   begin   
       if    (child    is    TEdit)    then   
       begin   
           (child    as    TEdit).Text    :=    'OK';   
       end   
       else    if(child    is    TImage)    then   
       begin   
           (child    as    TImage).Canvas.Brush.Color    :=    clBlue;   
           (child    as    TImage).Canvas.FillRect(rect(0,0,100,100));   
       end;   
   end;   
    
   procedure    TMyThread.Execute;   
   begin   
       inherited;   
       synchronize(draw);   
       if    Terminated    then    Exit;   
   end;   
    
   procedure    TForm1.Button1Click(Sender:    TObject);   
    
   begin   
       TMythread.Create(Edit1);   
       TMythread.Create(image1);   
   end;   
    
    
   end.  

//////////////////////有是一篇文章//////////////

  当一个线程在使用时，如果这个函数使用了Synchronize修钸的话就不允许别一个线程来调用这个函数，它的目的是避免多个子线程同时访问主线程资源。

示例：

procedure ServerThread.ListItemEnd; //子线程的一个方法

begin

if (ListItem <> nil) then

ListItem.SubItems.Strings[3] := '传送完毕'; //ListItem是主线程的一个TreeView的一行

end;

procedure ServerThread.ClientExecute; //子线程执行

begin

Synchronize(ListItemEnd);

//如果直接写ListItemEnd，可能发生冲突。

end;

      当创建了多个线程，并且多个线程都要访问同一资源，，就有可能出现混乱，于是用Synchronize来控制，使同一时间只有一个线程使用那部分资源，Synchronize参数里面的代码就是多线程需要公共的代码！

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/jqandjq/archive/2010/06/01/5638781.aspx