-
Есть необходимость динамически менять шаблоны серверных элементов управления компонента DataList, например, ItemTemplate. Для этого необходимо перекрыть метод InstantiateIn пространства имён ITemplate. В помощи Delphi 2005 имеются примеры такого перекрытия:
[Visual Basic] ' Override the ITemplate.InstantiateIn method to ensure ' that the templates are created in a Literal control and ' that the Literal object's DataBinding event is associated ' with the BindData method. Public Sub InstantiateIn(container As Control) Implements ITemplate.InstantiateIn Dim l As New Literal() AddHandler l.DataBinding, AddressOf Me.BindData container.Controls.Add(l) End Sub 'InstantiateIn [C#] // Override the ITemplate.InstantiateIn method to ensure // that the templates are created in a Literal control and // that the Literal object's DataBinding event is associated // with the BindData method. public void InstantiateIn(Control container) { Literal l = new Literal(); l.DataBinding += new EventHandler(this.BindData); container.Controls.Add(l); } [C++] // Override the ITemplate*.InstantiateIn method to ensure // that the templates are created in a Literal control and // that the Literal Object*'s DataBinding event is associated // with the BindData method. public: void InstantiateIn(Control* container) { Literal* l = new Literal(); l->DataBinding += new EventHandler(this, BindData); container->Controls->Add(l); }
Но меня интересует именно сиснтаксис DelphiLanguage. Может кто-нибудь перевести это на нормальный "дельфёвый" вид?
-
-
а вообще хорошо в ..\Demos\DB\AspPortal\BDSWebExample\Code\apptypes.pas и проч. всегда сначала вдаль тянет отчегото :)
|