线程的变量问题,请教大侠!

线程的变量问题,请教大侠! VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222154739181.html
主进程中有一个panel对象,创建一个进程thread.create(panel),传入panel对象,然后在进程thread中修改panel的一些属性,但是窗体上panel并没有发生相应的改变,不知道是什么原因,请高手指点!    
   
  谢谢!

注明:如果同样的代码,写在主进程中就完全可以,但写在线程中就不起作用。

{   Important:   Methods   and   properties   of   objects   in   visual   components   can   only   be  
      used   in   a   method   called   using   Synchronize,   for   example,  
   
              Synchronize(UpdateCaption);  
   
      and   UpdateCaption   could   look   like,  
   
          procedure   qaw.UpdateCaption;  
          begin  
              Form1.Caption   :=   'Updated   in   a   thread';  
          end;   }  
 

注意和VCL的同步

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   ExtCtrls,   StdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          Panel1:   TPanel;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
      twudi=class(TThread)  
          private  
              Fpanel   :   TPanel;  
              fs   :   string;  
              procedure   SetPC;  
          protected  
                procedure   Execute;   override;  
          public  
              constructor   Create(pn   :   TPanel);  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
          twudi.Create(Panel1);  
  end;  
   
  {   twudi   }  
   
  constructor   twudi.Create(pn:   TPanel);  
  begin  
        Fpanel   :=   pn;  
    //     FreeOnTerminate   :=   true;  
   
        inherited   Create(false);  
  end;  
   
  procedure   twudi.Execute;  
  var  
    i   :   integer;  
  begin  
        Fpanel.Align   :=   alLeft;  
        for   i   :=   0   to   10000   do  
        begin  
            fs   :=   IntToStr(i);  
            Synchronize(SetPC);  
        end;  
  end;  
   
  procedure   twudi.SetPC;  
  begin  
          Fpanel.Caption   :=   fs;  
  end;  
   
  end.  
 

在同步的时候,建议不要用Synchronize,   因为Synchronize回暂停现在的线程。建议用消息传递同步信息。

一个用消息的例子:  
   
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   ExtCtrls,   StdCtrls;  
   
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          Panel1:   TPanel;  
          Edit1:   TEdit;  
          procedure   Button1Click(Sender:   TObject);  
      private  
   
      public  
          {   Public   declarations   }  
      end;  
      twudi=class(TThread)  
          private  
              Fedit   :   TEdit;  
          protected  
                procedure   Execute;   override;  
        public  
          constructor   Create(ed   :   TEdit);  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
          twudi.Create(Edit1);  
  end;  
   
  {   twudi   }  
   
  constructor   twudi.Create(ed:   TEdit);  
  begin  
        Fedit   :=   ed;  
        inherited   create(False);  
  end;  
   
  procedure   twudi.Execute;  
  var  
    i   :   integer;  
  begin  
      FreeOnTerminate   :=   true;  
        for   i   :=   0   to   10000   do  
            SendMessage(Fedit.Handle,WM_SETTEXT,0,integer(pchar(inttostr(i))));  
  end;  
   
   
   
  end.  
 

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/18/1335917.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值