出错信息:"Cannot assign a Tfont to Tfont"(100分)

请问有谁在程序运行过程中出现过以下错误对话框，有没有办法解决，我的程序是线程的，这个错误有时候在窗体建立的时候就会出现，有时候就是窗体SHOW完之后进行操作的过程中才出现的，总之不定时地出现，而且几乎是整个程序的所有窗体都会有这种错误，各位帮忙看看，急~~~~~~~，晕，，不能上传图片的。。。。我只能把出错信息打出来了：
“PROJECT RAISED EXCEPTION CLASS ECONVERTERROR WITH MESSAGE ‘CANNOT ASSIGN A TFONT TO A TFONT’.”

线程里一般不要牵涉界面的操作，应该改改设计思路！

但是代码里没有什么特别的东西啦,我的代码段就是这样:
代码没什么啊,就只是建立窗体:
if not Assigned(frmCardManage) then
frmCardManage :=TfrmCardManage.Create (nil);
frmCardManage.dxbbIssue.Down :=true;
frmCardManage.ShowModal ;
frmCardManage.Free;
frmCardManage :=nil;
然后出错的时候就会跳到'frmCardManage.Free;'这句.

这段代码看不出什么,多贴点.

图片可以在你的 笔记 里上传

问题是我的CREAT和SHOW过程都只是一些查询没有别的东西了,而且这个错误也不是在SHOW的时候出现的,很多时候是SHOW完之后还可以继续操作,然后才出现的,有时候就是窗体SHOW在那里不去操作,等一下这个错误就会跳出来了,有时候干脆不出现,很奇怪~~好像没规律但又应该是有东西触发才出错的~~

肯定是你线程里操作的问题，到你的线程代码里仔细看看

调试跟踪

调试不出,每次一错就跳出来了~~跳到'frmCardManage.Free;'这句~

你的错误信息里提到了 font 啊，查看看了吗？

慢慢排除，界面上是什么东西？dbgrid有时老出canvas的异常的

TfrmCardManage = class(TForm)
dxBarManager1: TdxBarManager;
dbeEmpNo: TdxBarEdit;
dbeCName: TdxBarEdit;
dbeCardSerno: TdxBarEdit;
DeptTreeView: TdxBarTreeViewCombo;
dxBarButton1: TdxBarButton;
dxbbChange: TdxBarButton;
dxbbIssue: TdxBarButton;
RzPanel1: TRzPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
RzGroupBox1: TRzGroupBox;
Label1: TLabel;
Label2: TLabel;
rcbLTDate: TRzCheckBox;
RzBitBtn2: TRzBitBtn;
rbbIssue: TRzBitBtn;
reCardserno: TRzEdit;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
rdteLTDate: TRzDateTimePicker;
rbbEdStopDate: TRzBitBtn;
rbbCallBack: TRzBitBtn;
dsGen: TDataSource;
qryGen: TADOQuery;
界面上就上面那些东西~~

是不是你这些第三方控件的问题呢？
你说了 这个错误有时候在窗体建立的时候就会出现 ，
那么你把窗体上所有的东西去掉，尽量去掉有可能出问题的控件，一次次的试吧，

记得先备份[]

[]我是已经去掉能去的了,剩下的这些都有用的,再去这个窗体就没用了~~而且这个错误还不一定是建立的时候出现,有时候根本就不出现,有时候是SHOW了很久之后才出现~~