打印的问题？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

Question

procedure TForm1.Button2Click(Sender: TObject);begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);//这是什么意思？//
    EndDoc;
  end;
 end;

Answer 1

表示在Rect的范围内冲200，200位置打印TEXT内容！

Answer 2

Rect creates a TRect structure from a set of coordinates.function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect;Rect是一个函数，返回一个矩形，这个矩形由ALeft，ATop,ARight,ABottom确定，分别表示
矩形左上角的点的位置和右下角的点的位置。看看Delphi的帮助就知道了

Answer 3

RECT既是一个特殊的数据结构,又是一个函数,它的作用就是定义一个矩形区域对象,而作为函数使用时它可以用两个属性(Tpiont型)指明区域范围,同时也可分解成四个单一的变量类型(Integer型),即:
topleft:          左上角坐标(Tpiont型变量);
bottomright:      右下角坐标(Tpiont型变量);
topleft.x或left:  左上角横坐标;
topleft.y或top:   左上角纵坐标;
bottomright.x或right: 右下角横坐标;
bottomright.y或bottom:右下角纵坐标。