procedure TMyControl.SetBackColor(Val:TColor);
begin
  FBackColor:=Val;
  DrawBackColor;   //填充组件的背景。
  Perform(CM_COLORCHANGED, 0, 0);//通知
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————

解决方案 »

  1.   

    在空间的属性设置里可以加上update或者refresh来更新控件的输性质或者重画控件,
    如果还是不行的画,可能在你设置值改变后,控件还有自动处理的过程
      

  2.   

    在空间的属性设置里可以加上update或者refresh来更新控件的输性质或者重画控件,
    如果还是不行的画,可能在你设置值改变后,控件还有自动处理的过程
      

  3.   

    在你的赋值后Invalidate;或者refresh;update;
    注意不要让系统默认的处理覆盖了你的处理,否则你就白画了
      

  4.   

    我的VCL有很多属性,都有这种表现,在属性列表当中设置,一切正常。
    就是通过属性页设置有问题,设置完就启动窗体上的VCL还是原来的样子,除非设置完在拖动一下VCL或调整一下尺寸,再启动就变了,这实在是奇怪。
    我的属性页很简单呀,就是给组件赋值。FCom:TMyControl;FCom.TextNum:=  ;