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窗體了。