如何使用Delphi的源代码在窗体上自动获取对象?
我将上面粘贴的代码复制到我的RAD Embarcadeo delphi表单代码上。但是为什么我不明白呢 在“代码”选项卡的适当位置粘贴上述代码后,表单上的组件将自动显示。。。 相反,它给出了许多错误,比如如何使用Delphi的源代码在窗体上自动获取对象?,delphi,delphi-xe2,Delphi,Delphi Xe2,我将上面粘贴的代码复制到我的RAD Embarcadeo delphi表单代码上。但是为什么我不明白呢 在“代码”选项卡的适当位置粘贴上述代码后,表单上的组件将自动显示。。。 相反,它给出了许多错误,比如 procedure TMyForm.FormCreate(Sender: TObject); var Group: TListGroup; Item: TListItem; s1, s2: string; begin ListView1.ViewStyle := vsRepor
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
源表单上有一个
ListView1
组件,您也应该将其复制到新表单中。从旧表单查看代码时,按F12切换到表单视图。查找并选择列表视图1
组件,然后复制它。将其粘贴到新表单的表单视图中。当您这样做并保存新表单/代码时,它会将所需的单位添加到新代码的uses
子句中。这将修复您的错误。源表单上有一个列表视图1
组件,您也应该将其复制到新表单中。从旧表单查看代码时,按F12切换到表单视图。查找并选择列表视图1
组件,然后复制它。将其粘贴到新表单的表单视图中。当您这样做并保存新表单/代码时,它会将所需的单位添加到新代码的uses
子句中。这将修复您的错误。您希望该代码做什么?我认为您对该代码的含义缺乏理解,这当然提出了一个问题:为什么您首先复制了它。您希望该代码做什么?我认为您对该代码的含义缺乏理解,这当然提出了一个问题,即您为什么要首先复制它。
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