首页 / 软件开发 / Delphi / Delphi的绘图功能[9] - TextRect

//第一种重载的声明:
TextRect（
Rect: TRect; {矩形}
X, Y: Integer; {相对于窗体的位置}
const Text: string {文本}
）;
{如果要输出的文本超出指定的矩形将不被显示}
--------------------------------------------------------------------------------
//第一种重载的举例:
procedure TForm1.Button1Click（Sender: TObject）;
const
R: TRect = （Left:0; Top:0; Right:60; Bottom:60）;
s = "万一的 Delphi 博客";
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect（R）;
Canvas.TextRect（R, 10, 10, s）;
end;