我在数据库中有一张表，其中包含一些商品的信息。商品可能是可填充的，因此我们可以向其添加文本。因此，我想动态生成与表格中的信息相关的复选框列表，甚至某些复选框必须与 TEdit 组件一起使用，才能为该项目添加文本。那么我该怎么做呢？我应该使用什么组件？我发现 TTreeView 几乎足够了，但它不允许在复选框附近“绘制”TEdit。我正在使用 Delphi 2010。提前致谢！希望得到您的帮助！
【问题讨论】：
Edit := TEdit.Create(Self); Edit.Parent := Self; Edit.Top := NextTop; inc(NextTop, Spacing);
标签： database delphi checkbox components
如果我正确阅读了您的问题，您想根据表格的内容在表单上创建一些控件。在以下示例中，我假设您希望根据 TDBGrid 中当前记录的内容来执行此操作，因此您必须根据需要进行调整。
该示例假定一个带有 TDBGrid 和一个 TPanel (Panel1) 的表单将保存在运行时创建的控件。
TDBGrid 将连接到 TDataSource 组件，并将连接到带有信息的表/查询的某些 TDataSet 后代。 TDataSource 有一个 OnDataChanged 事件。当字段中的数据发生更改或数据集中的当前记录发生更改时，将触发此事件。因此，您可以使用它在当前记录更改时更改控件。
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
i: Integer;
Chk: TCheckBox;
Edit: TEdit;
begin
// When the Field is assigned, the call is the result of a change in the field.
// When the Field is unassigned, the call is the result of changing the current record.
if Assigned(Field) then
Exit;
// Remove controls on panel
for i := Panel1.ControlCount - 1 downto 0 do
Panel1.Controls[i].Free;
// Add controls on panel for current record
if True then // Replace this with condition based on contents of current record (if any!)
begin
Chk := TCheckBox.Create(Self); // Set Owner, so it is freed when form is closed.
Chk.Parent := Panel1; // Set Parent, so the control is shown.
Chk.Left := FLeftIndent; // Create FLeftIndent as a member field of the form, set value in OnCreate.
Chk.Top := FNextTop; // Create FNextTop as a member field of the form.
Inc(FNextTop, FSpacing); // Create FSpacing as a member field of the form, set value in OnCreate.
if True then // Replace this with condition that dictates creation of Edit
begin
Edit := TEdit.Create(Self);
Edit.Parent := Panel1;
Edit.Left := Chk.Left + Chk.Width + FSpacing;
Edit.Top := Chk.Top; // Add offset as needed for proper alignment of CheckBox and Edit.
end;
end;
end;
请注意，如果您在表单上没有任何其他复选框或编辑，则您必须自己包含正确的 vcl 单元。最简单的方法是将它们放在表单上，保存表单，然后再次删除控件。
【讨论】：
我很想使用像 ExGridView 这样的网格视图，让它绘制我的复选框，并为我的每一行执行“编辑”控件。但是，如果您真的想要一个编辑框而不是网格，您也可以尝试使用控件网格方法（1 个复选框 + 1 个编辑控件，在控件网格中）。
【讨论】：
尝试this 在运行时创建复选框的示例，它可以帮助您动态修改位置。您可以创建一个新组件，其中包含带有 Edit 的复选框，也可以在需要的地方动态创建 TEdit。
考虑创建一个 TCheckbox 数组和一个 TEdit 数组，并使用 IsEditNeeded 布尔函数等设置每个 Edit 的可见属性，如果需要 Edit 字段，您可以在其中编码条件。
【讨论】：