Question

procedure TMyForm.FormCreate(Sender: TObject);
var
  Group: TListGroup;
  Item: TListItem;
  s1, s2: string;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.GroupView := True;
  ListView1.Columns.Add.Caption := 'My column';
  Group := ListView1.Groups.Add;
  Group.Header := 'My header';
  Group.GroupID := 0;
  Item := ListView1.Items.Add;
  Item.GroupID := 0;
  Item.Caption := 'My item';

end

我在RAD Embarcadeo delphi表单代码上复制粘贴上面的代码。但为什么我没有得到在CODE选项卡上的适当位置粘贴上面的代码后自动在表单上... 相反，它会给出很多错误，比如

Undeclared identifier TListGroup at line 27 
Undeclared identifier TListItem at line 28
Undeclared identifier ListView1 at line 31
Undeclared identifier ViewStyle at line 31
Undeclared identifier vsReport at line 31
Undeclared identifier GroupView at line 32
Undeclared identifier TListGroup at line 27

Answer 1

源表单上有一个ListView1组件，您也应该将其复制到新表单中。查看旧表单中的代码时，请按F12切换到表单视图。查找并选择ListView1组件，然后将其复制。将其粘贴到新表单的表单视图中。当您这样做并保存新的表单/代码时，它会将所需的单元添加到新代码的uses子句中。这将解决您的错误。

如何使用Delphi中的源代码在表单上自动获取对象？

1 个答案: