显示和函数调用问题

Question

本帖最后由 tgb0yhn 于 2011-03-26 10:34:15 编辑

Answer 1

一、 label2的atuosize设置了吗？还有事你的字体问题。
二、没用过之后free了吗。

Answer 2

1、把它显示到panel.caption会怎样
label是有一些设置：autosize之类的
2、函数是简单的数值计算，还是涉及资源的使用，多线程可能会有冲突

Answer 3

var
  piCurrentValue : integer;procedure ThreadProc;
  ...
  piCurrentValue := GetXX...
  ...
end;procedure TForm1.Timer1Timer(Sender : TObject);
begin
  Label1.Caption := '当前值' + IntToStr(piCurrentValue);
end;这样显示当前值，也可以在线程内，给Form发一个消息如： WM_USER + $12;然后在Form里响应这个消息，来显示当前值，总之就是最好不在线程内调用 Form里的对象，如果非要调用，用组件同步