delphi11 Panel 画图

在 Delphi 11 中，你可以使用 `TPanel` 控件的 `Canvas` 属性来绘制图形。下面是一个在面板上绘制直线和矩形的示例代码：

procedure TForm1.DrawOnPanel(const panel: TPanel);
begin
  // 设置画笔颜色和宽度
  panel.Canvas.Pen.Color := clRed;
  panel.Canvas.Pen.Width := 2;

  // 绘制一条直线
  panel.Canvas.MoveTo(0, 0);
  panel.Canvas.LineTo(panel.Width, panel.Height);

  // 绘制一个矩形
  panel.Canvas.Brush.Color := clBlue;
  panel.Canvas.Rectangle(panel.Width div 4, panel.Height div 4, panel.Width * 3 div 4, panel.Height * 3 div 4);
end;

在上述代码中，`panel` 参数表示要绘制图形的面板控件。首先设置了画笔的颜色和宽度，然后使用 `MoveTo` 和 `LineTo` 方法绘制了一条直线。接着设置了画刷的颜色，使用 `Rectangle` 方法绘制了一个矩形。你可以根据需要在该函数中添加更多的绘图代码。最后，你可以在需要的时候调用该函数来在面板上绘制图形。