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;

1. 在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窗体了。