如何在Delphi中使用源代码在窗体上自动获取对象？

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表单代码上面的代码。但是，为什么我不能自动在窗体上到合适的位置代码标签上面的代码粘贴后得到组件... 相反，它是给像如何在Delphi中使用源代码在窗体上自动获取对象？

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

来源

2013-07-03 Vishal Desai

你希望*代码做什么？我认为你对代码的含义缺乏了解，这当然会引出你为什么复制它的问题。 –

许多错误还有就是你的源代码的形式在ListView1组件你也应该复制到你的新表单。从旧窗体查看代码时，请按F12切换到窗体视图。找到并选择ListView1组件，然后复制它。将其粘贴到新表单的表单视图中。当你这样做并保存你的新表单/代码时，它会将所需的单元添加到新代码的uses子句中。这将解决你的错误。

来源

2013-07-03 06:52:56

如何在Delphi中使用源代码在窗体上自动获取对象？

回答

相关问题