如何改变TextOut输出文字的大小？

Question

Form1.Canvas.Font.Size :=8;
Form1.Canvas.Font.Height :=-4;
Form1..Canvas.TextOut(5,5,'非常好');我无法改变TextOut输出文字的大小，不知该如何解决？
在线等，多谢！

Answer 1

Form1.Canvas.font.Size := 30;
 Form1.Canvas.TextOut(15,15,'獶盽');

Answer 2

Form1.Canvas.Font.Size := 20;
  Form1.Canvas.TextOut(5,5,'非常好');去掉Form1.Canvas.Font.Height :=-4;这句。

Answer 3

变大可以，就是不能变小了，
Form1.Canvas.Font.Size :=8;是最小的，我需要更小一些的字体，如何做到？

Answer 4

Form1.Canvas.Font.Size :=8
无论再如何改变Size的值，字体都无法变得更小了，能解决吗？

Answer 5

Form1.Canvas.Font.Size := 3;
  Form1.Canvas.Font.Name := '宋体';  // 设置字体为宋体
  Form1.Canvas.TextOut(5,5,'非常好');