多线程里面使用FindComponent

Question

昨天的一个帖子，在界面上能实现动态修改控件的值，现在需要在线程里面修改。procedure TReadThread.Draw();
var
  tmpFrm:   Tfr_entry;
  PropInfo: PPropInfo;
  con:TComponent;
begin
  tmpFrm := Tfr_entry.Create(con);//这个con没有初始化
  try
    con := tmpFrm.FindComponent('Label'+IntToStr(pindex));
    if con = nil then
      Exit;
    PropInfo := GetPropInfo(con.ClassInfo, 'Caption');
    if Assigned(PropInfo) then
      SetStrProp(con, PropInfo, pvalue);
  finally
    tmpFrm.Destroy;
  end;
end;
在多线程里面怎样修改

Answer 1

昨天的帖子：http://topic.csdn.net/u/20090318/15/34917339-cec1-4135-9237-e3eaedf155a8.html

Answer 2

這是通RTTL 訪問類的PUBLISHED 的東西。 你上面有什麼問題嗎？？   pValue  的值呢？？ 也沒有聲明啊。

Answer 3

pindex&pvalue的值是放在private里面声明了
Tfr_entry是一个界面，窗体。我需要在多线程类里面修改Label的值上面的问题就是tmpFrm := Tfr_entry.Create(con);的时候异常。
应该是con没有初始化。