怎樣在Label中顯示不同Size,不同字體的字 ======================================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

You can't do it in a standard TLabel. Perhaps you can use a richedit instead by setting some of its properties (e.g. BorderStyle, Color, TabStop, ReadOnly etc).

或用個 TImage, 設定各個字 TImage.Canvas.Font.Color 然後 TImage.Canvas.Textout 的方式來畫字 --- hagar 站直了, 別趴下!

你好： 有个笨方法，不觉麻烦可以试试 用多几个 > ——行径窄处，留一步与人行——

Hi Leway : 不要用Label可不可以啊

procedure TForm1.FormPaint(Sender: TObject);
var FontStart : Integer;
begin
  Form1.Canvas.Font.Name := 'Arial';      FontStart := 0;
  Form1.Canvas.TextOut(FontStart,0,'a');      FontStart := FontStart   Form1.Canvas.TextWidth('a');
  Form1.Canvas.Font.Size := Form1.Canvas.Font.Size   10;
  Form1.Canvas.TextOut(FontStart,0,'b');      FontStart := FontStart   Form1.Canvas.TextWidth('b');
  Form1.Canvas.Font.Size := Form1.Canvas.Font.Size   10;
  Form1.Canvas.TextOut(FontStart,0,'c');      FontStart := FontStart   Form1.Canvas.TextWidth('c');
  Form1.Canvas.Font.Size := Form1.Canvas.Font.Size - 10;
  Form1.Canvas.TextOut(FontStart,0,'b');      FontStart := FontStart   Form1.Canvas.TextWidth('b');
  Form1.Canvas.Font.Size := Form1.Canvas.Font.Size - 10;
  Form1.Canvas.TextOut(FontStart,0,'a');
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.