delphi中怎么绘制表格

在Delphi中绘制表格可以使用TStringGrid组件。下面是一个简单的示例代码：

1. 在Delphi中创建一个新的VCL应用程序项目。

2. 在窗体上拖放一个TStringGrid组件（位于"Standard"面板）。

3. 双击StringGrid组件，进入StringGrid的事件编辑器。

4. 在StringGrid的OnCreateCell事件中添加以下代码：

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
grid: TStringGrid;
begin
grid := TStringGrid(Sender);
grid.Canvas.Brush.Color := clWhite; // 设置单元格背景颜色
grid.Canvas.FillRect(Rect);
grid.Canvas.Pen.Color := clBlack; // 设置单元格边框颜色
grid.Canvas.Rectangle(Rect);
// 获取单元格文本
if (ARow >= 0) and (ACol >= 0) then
grid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, grid.Cells[ACol, ARow]);
end;

5. 在StringGrid的OnResize事件中添加以下代码：

procedure TForm1.StringGrid1Resize(Sender: TObject);
begin
StringGrid1.DefaultColWidth := StringGrid1.Width div StringGrid1.ColCount;
StringGrid1.DefaultRowHeight := StringGrid1.Height div StringGrid1.RowCount;
end;

上述代码中，我们使用了StringGrid的OnCreateCell事件来绘制每个单元格的背景颜色、边框和文本。在OnResize事件中，我们设置了每个单元格的默认宽度和高度，以使表格自适应窗体的大小。

现在你可以运行该应用程序，就可以看到一个可以绘制表格的Delphi窗体了。