将组件添加到数据模块中的工具面板
Add Component to tool palette in Data Module
我想知道是否有办法将工具添加到数据模块的工具面板。
在 'data access' 工具下的标准表格中,我有许多 'TXML' 工具,但这些工具不在数据模块的 'data access' 工具下。
我可以添加这些吗?
谢谢,
我不知道您是否可以将它们添加到工具选项板,但是如果您像下面的示例一样自己创建对象,则可以使用它们。
unit Unit2;
interface
uses
System.SysUtils, System.Classes,Xml.xmldom, Xml.XMLIntf,
Xml.XMLDoc;
type
TDataModule2 = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
procedure test;
end;
var
DataModule2: TDataModule2;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
{ TDataModule2 }
procedure TDataModule2.test;
var
xml :TXMLDocument;
begin
try
xml := TXMLDocument.Create();
finally
xml.Free;
end;
end;
end.
我已将 XMLDocument 的单位添加到 use
,然后我自己创建了对象。
我想知道是否有办法将工具添加到数据模块的工具面板。
在 'data access' 工具下的标准表格中,我有许多 'TXML' 工具,但这些工具不在数据模块的 'data access' 工具下。
我可以添加这些吗?
谢谢,
我不知道您是否可以将它们添加到工具选项板,但是如果您像下面的示例一样自己创建对象,则可以使用它们。
unit Unit2;
interface
uses
System.SysUtils, System.Classes,Xml.xmldom, Xml.XMLIntf,
Xml.XMLDoc;
type
TDataModule2 = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
procedure test;
end;
var
DataModule2: TDataModule2;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
{ TDataModule2 }
procedure TDataModule2.test;
var
xml :TXMLDocument;
begin
try
xml := TXMLDocument.Create();
finally
xml.Free;
end;
end;
end.
我已将 XMLDocument 的单位添加到 use
,然后我自己创建了对象。