高分请教：如何让Label中部分字体显示不同样式

Question

TLabel控件
使用TLabel.Caption:='ABCDEF';
如何让只让ABC三个字母加上删除线？

Answer 1

用两个Label来实现,要么用第三方控件.

Answer 2

嗯，一个Label肯定是不行的！！~~~

Answer 3

form1.Canvas.LineTo(100,100);画线的位置自已控制

Answer 4

自己写一个不就得了TRainbowLabel = class( TLabel)
protected
  procedure Paint; override;
endimp...procedure TRainbowLabel.Paint;
var
  r : TRect;
begin
  Inherited;
  r := ClientRect;
  with Canvas do
  begin
    r.Right := 自己计算 
    Pen.Color := clRed;
    MoveTo( r.Left, r.Bottom-1);
    LineTo( r.Right, r.Bottom-1);
  end;
end;