线程的变量问题，请教大侠！

Question

主进程中有一个panel对象，创建一个进程thread.create(panel),传入panel对象，然后在进程thread中修改panel的一些属性，但是窗体上panel并没有发生相应的改变，不知道是什么原因，请高手指点！ 谢谢！

Answer 1

{ 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; }

Answer 2

unit Unit1;interfaceuses
  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.

Answer 3

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

Answer 4

一个用消息的例子:unit Unit1;interfaceuses
  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.