请问能否直接在FORM上画图写字呢?

Question

我最近在写一个小的桌面日历,想直接在FORM上画出日期,如下:
   日  一  二  三  四  五  六
           1   2   3   4   5  
   6   7   8   9   10  11  12
   13  14  15  16  17  18  19 
   20  21  22  23  24  25  26  
   27  28  29  30
不知道能否实现,如果可以的话请给出具体的函数以及参数说明,因为我还是个刚开始的大学生,请大家帮帮忙!

Answer 1

当然可以, 例如:procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Canvas.Font.Name := '宋体';
  Self.Canvas.Font.Size := 11;
  Self.Canvas.TextOut(15, 10, '一 二 三 四 五 六 日');
  Self.Canvas.TextOut(10, 30, '    1  2  3  4  5  6');
  Self.Canvas.TextOut(10, 50, ' 7  8  9 10 11 12 13');
  Self.Canvas.TextOut(10, 70, '14 15 16 17 18 19 20');
  Self.Canvas.TextOut(10, 90, '21 22 23 24 25 26 27');
  Self.Canvas.TextOut(10, 110, '28 29 30 31');
end;