奇怪!动态生成的构件,为什么有时能显示提示信息有时不能!!
my[k].Hint :='ok'+ADOQuery1.Fields[4].AsString +'.'+#13+my[k].Hint;
my[k].Font.Name :='宋体';
my[k].Font.Color := clWhite;
my[k].Font.Size :=14;
my[k].ShowHint :=true;
my[k].Enabled :=true;
my[k].BevelInner:=bvRaised;
my[k].BorderStyle :=sbsSingle;
my[k].DragMode := dmAutomatic;
my[k].OnEndDrag := myEndDrag;
my[k].OnDragOver := myDragOver;
my[k].show;
其他属性都能体现出来,数据库读出也是正常的,就是有时不能显示提示(hint),为什么啊? 有时是一切正常的,但机会不是很多!
my[k].Hint :='ok'+ADOQuery1.Fields[4].AsString +'.'+#13+my[k].Hint;
my[k].Font.Name :='宋体';
my[k].Font.Color := clWhite;
my[k].Font.Size :=14;
my[k].ShowHint :=true;
my[k].Enabled :=true;
my[k].BevelInner:=bvRaised;
my[k].BorderStyle :=sbsSingle;
my[k].DragMode := dmAutomatic;
my[k].OnEndDrag := myEndDrag;
my[k].OnDragOver := myDragOver;
my[k].show;
其他属性都能体现出来,数据库读出也是正常的,就是有时不能显示提示(hint),为什么啊? 有时是一切正常的,但机会不是很多!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货