摘要： 问题来源: http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542procedure TForm1.FormPaint(Sender: TObject);var x,y: Integer; str: string;begin x := 10; y := 10; str := '今天'; Canvas.Font... 阅读全文