FireMonkey 的网格 Grid 的用法（1）

最新推荐文章于 2025-10-23 16:18:49 发布

原创

最新推荐文章于 2025-10-23 16:18:49 发布 · 1.9k 阅读

4 ·

CC 4.0 BY-SA版权

本文详细介绍如何在FireMonkey框架中使用Grid控件实现类似Delphi IDE属性面板的效果，包括创建列、填充数据、响应编辑操作等关键步骤。

学习一下在 FireMonkey 里面怎么用格子来实现一些界面效果。比如，类似 Delphi IDE 的属性面板那种格子。

一边学习一边写 Blog 作为记录。从最简单的玩法开始。

创建一个 FireMonkey 的工程，保存一下。只需要一个 Form。

拖一个 TLayout 过来，设置 Align 为 Top；拖一个 TGrid 到这个 Layout 里面，设置 Align 为 Left。

鼠标双击这个 Gird1，IDE 会弹出一个 Item Editor 窗口。这里点击 Add Item 按钮，增加一个 TColumn，它自动生成一个名字为 Column1 的 TColumn，也就是为这个 Grid 增加一个列。这里我要有两个列，另外一个列，我用代码创建。

先看看最终效果：

上述效果图里面，左边一列的数字，是行序号。右边一列的字符串，是用代码事先写死进一个 List 里面的。

代码里面写一点东西：

TForm1 = class(TForm)
    Layout1: TLayout;
    Grid1: TGrid;
    Column1: TColumn;
    procedure FormCreate(Sender: TObject);
    procedure Grid1GetValue(Sender: TObject; const ACol, ARow: Integer;
      var Value: TValue);
    procedure Grid1SetValue(Sender: TObject; const ACol, ARow: Integer;
      cons