- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如果之前有人问过这个问题,我们深表歉意。我对一些组件的定义如下(如果错误请指导我,因为我是初学者)。我正在尝试的是枚举派生组件的所有已发布属性,特别是子属性。我能够枚举属性的名称,但是,是否可以枚举在程序执行期间可以访问其元素(如子属性)的已发布属性?像 getfirst/getnext 一样逐一返回属性直到最后?
type
TStringArray = array of string;
TGenericColumnDef = class(TPersistent)
private
fColumnName : String;
fColumnNumber : Integer;
fColumnDisplay : string;
fColumnDescription : string;
fColumnDataType : integer;
fColumnEditorType : integer;
// fMyEvent: TNotifyEvent;
protected
public
constructor create(AOwner: TComponent); virtual;
published
property ColumnName : String read fColumnName write fColumnName;
property ColumnNumber : integer read fColumnNumber write fColumnNumber;
//property MyEvent: TNotifyEvent read fMyEvent write fMyEvent;
end;
TGenericAsset = class(Tcomponent) //TPersistent
private
{ Private declarations }
fCiteID : TGenericColumnDef;
fCiteType : TGenericColumnDef;
fTitle : TGenericColumnDef;
fAuthor : TGenericColumnDef;
fPropertyCount : integer;
function GetPropertyCount : integer;
function GetNextPropertyIndex: integer;
property CountProperties : integer read GetPropertyCount;// write fPropertyCount
protected
{ Protected declarations }
FOwner: TObject;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor destory ; virtual;
function GetColumnNameByColumnNumber(ColumnNumber : Integer) : String;
function GetColumnNames : TStringArray;
// function GetFirst : TGenericColumnDef;
published
property CiteID : TGenericColumnDef read fCiteID write fCiteID;
property CiteType : TGenericColumnDef read fCiteType write fCiteType;
property Title : TGenericColumnDef read fTitle write fTitle;
property Author : TGenericColumnDef read fAuthor write fAuthor;
//property Nthproperty .........
end;
//derived from TGenericAsset
type
TEditedBook = class(TGenericAsset)
private
protected
public
published
property CiteID : TGenericColumnDef read fCiteID write fCiteID;
property Title : TGenericColumnDef read fTitle write fTitle;
property Author : TGenericColumnDef read fAuthor write fAuthor;
end;
非常感谢任何观点或指南(示例代码)。提前致谢。
最佳答案
虽然它没有具体回答您的问题,但下面的代码(几年前由 TeamB 的 Peter Below 博士捐赠给旧的 Borland Delphi 新闻组)显示了如何使用 RTTI 克隆另一个组件。它展示了如何获取(和设置)子属性,如其他对象、枚举类型等。这应该足以让您开始。我在代码中留下了 Peter 的注释,以及以函数下方的一些示例代码的形式使用它的示例。 (我还保留了他的代码格式和一些关键字的奇怪字母大小写。:)
// Unfortunately there is no easy way to "clone" a component in a way that
// will also preserve event handlers. It can be done using run-time type
// information and routines form the TypInfo unit, though. Try the following
// routine. It is only superficially tested.
Uses TypInfo;
{-- CloneComponent ----------------------------------------------------}
{: Make a copy of a component.
@Param anObj is the component to copy
@Param cloneChildren if true and anObj is a TWincontrol then all its
child controls will also be copied.
@Param aParent is the parent to use if anObj is a TControl.
@Returns the new object reference. It will have the same owner as anObj
and passes into the responsibility of the caller.
@Precondition anObj <> nil
@Desc The method creates a new object of the same class as anObj and then
uses TypInfo routines to copy all published properties. The logic used
for object properties is similar to what the form loading code uses:
if a property refers to a TComponent the component reference is copied.
If it refers to a TPersistent descendent the Assign method is used
to copy the objects contents. Currently TCollections do not receive
any special treatment, which may be necessary. <BR>
Note: the routine will not copy any objects *owned* by anObj, so it
cannot be used as is to clone a top-level container like a form,
frame, or datamodule. Those can be copied using WriteComponent and
ReadComponent with a TMemoryStream.
}{ Created 12.4.2002 by P. Below
-----------------------------------------------------------------------}
Function CloneComponent( anObj: TComponent;
cloneChildren: Boolean = false;
aParent: TWinControl = nil ): TComponent;
Var
numProps, I : Integer;
props: PPropList;
PropInfo: PPropInfo;
obj, obj2: TObject;
Begin { CloneComponent }
Assert( Assigned( anObj ));
Result := TComponentClass( anObj.ClassType ).Create( anObj.Owner );
Try
numProps := GetPropList(anObj, props );
Try
For I := 0 To numProps - 1 Do Begin
PropInfo := props^[I];
Case PropInfo^.PropType^.Kind Of
tkInteger, tkChar, tkEnumeration, tkSet, tkWChar:
SetOrdProp( Result, propinfo,
GetOrdProp( anObj, propinfo ));
tkFloat:
SetFloatProp( Result, propinfo,
GetFloatProp( anObj, propinfo ));
tkString, tkLString:
If not SameText( propinfo^.name, 'Name' ) Then
SetStrProp( Result, propinfo,
GetStrProp( anObj, propinfo ));
tkWString:
SetWideStrProp( Result, propinfo,
GetWideStrProp( anObj, propinfo ));
tkMethod:
SetMethodProp( Result, propinfo,
GetMethodProp( anObj, propinfo ));
tkInt64:
SetInt64Prop( Result, propinfo,
GetInt64Prop( anObj, propinfo ));
tkVariant:
SetVariantProp( Result, propinfo,
GetVariantProp( anObj, propinfo ));
tkInterface:
SetInterfaceProp( Result, propinfo,
GetInterfaceProp( anObj, propinfo ));
tkClass: Begin
obj := GetObjectProp( anObj, propinfo );
If Assigned( obj ) Then Begin
If obj Is TComponent Then
SetObjectProp( Result, propinfo, obj )
Else If obj Is TPersistent Then Begin
obj2 := GetObjectProp( result, propinfo, TPersistent);
If Assigned( obj2 ) Then
TPersistent( obj2 ).Assign( TPersistent(obj));
End; { If }
End; { If }
End; { Case tkClass }
Else
// we don't handle these property types:
// tkArray, tkRecord, tkDynArray
End; { Case }
End; { For }
Finally
FreeMem( props );
End; { Finally }
If anObj Is TControl Then
TControl( result ).Parent := aParent;
If cloneChildren and (anObj Is TWinControl ) Then
For i:= 0 To TWinControl( anObj ).ControlCount-1 Do
CloneComponent( TWinControl( anObj ).Controls[i], true,
TWinControl( Result ) );
Except
Result.Free;
raise
End; { Except }
End; { CloneComponent }
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
memo1.lines.add('Click on groupbox '+(sender as TComponent).Name );
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
ctrl: TWinControl;
begin
ctrl := CloneComponent( groupbox1, true, self ) as TWincontrol;
With ctrl Do
SetBounds( left, top+height+8, width, height );
memo1.Lines.add( Format('Controlcount: %d', [ctrl.controlcount]));
end;
关于delphi - 枚举 Delphi 中已发布的属性和子属性,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5442234/
我需要将文本放在 中在一个 Div 中,在另一个 Div 中,在另一个 Div 中。所以这是它的样子: #document Change PIN
奇怪的事情发生了。 我有一个基本的 html 代码。 html,头部, body 。(因为我收到了一些反对票,这里是完整的代码) 这是我的CSS: html { backgroun
我正在尝试将 Assets 中的一组图像加载到 UICollectionview 中存在的 ImageView 中,但每当我运行应用程序时它都会显示错误。而且也没有显示图像。 我在ViewDidLoa
我需要根据带参数的 perl 脚本的输出更改一些环境变量。在 tcsh 中,我可以使用别名命令来评估 perl 脚本的输出。 tcsh: alias setsdk 'eval `/localhome/
我使用 Windows 身份验证创建了一个新的 Blazor(服务器端)应用程序,并使用 IIS Express 运行它。它将显示一条消息“Hello Domain\User!”来自右上方的以下 Ra
这是我的方法 void login(Event event);我想知道 Kotlin 中应该如何 最佳答案 在 Kotlin 中通配符运算符是 * 。它指示编译器它是未知的,但一旦知道,就不会有其他类
看下面的代码 for story in book if story.title.length < 140 - var story
我正在尝试用 C 语言学习字符串处理。我写了一个程序,它存储了一些音乐轨道,并帮助用户检查他/她想到的歌曲是否存在于存储的轨道中。这是通过要求用户输入一串字符来完成的。然后程序使用 strstr()
我正在学习 sscanf 并遇到如下格式字符串: sscanf("%[^:]:%[^*=]%*[*=]%n",a,b,&c); 我理解 %[^:] 部分意味着扫描直到遇到 ':' 并将其分配给 a。:
def char_check(x,y): if (str(x) in y or x.find(y) > -1) or (str(y) in x or y.find(x) > -1):
我有一种情况,我想将文本文件中的现有行包含到一个新 block 中。 line 1 line 2 line in block line 3 line 4 应该变成 line 1 line 2 line
我有一个新项目,我正在尝试设置 Django 调试工具栏。首先,我尝试了快速设置,它只涉及将 'debug_toolbar' 添加到我的已安装应用程序列表中。有了这个,当我转到我的根 URL 时,调试
在 Matlab 中,如果我有一个函数 f,例如签名是 f(a,b,c),我可以创建一个只有一个变量 b 的函数,它将使用固定的 a=a1 和 c=c1 调用 f: g = @(b) f(a1, b,
我不明白为什么 ForEach 中的元素之间有多余的垂直间距在 VStack 里面在 ScrollView 里面使用 GeometryReader 时渲染自定义水平分隔线。 Scrol
我想知道,是否有关于何时使用 session 和 cookie 的指南或最佳实践? 什么应该和什么不应该存储在其中?谢谢! 最佳答案 这些文档很好地了解了 session cookie 的安全问题以及
我在 scipy/numpy 中有一个 Nx3 矩阵,我想用它制作一个 3 维条形图,其中 X 轴和 Y 轴由矩阵的第一列和第二列的值、高度确定每个条形的 是矩阵中的第三列,条形的数量由 N 确定。
假设我用两种不同的方式初始化信号量 sem_init(&randomsem,0,1) sem_init(&randomsem,0,0) 现在, sem_wait(&randomsem) 在这两种情况下
我怀疑该值如何存储在“WORD”中,因为 PStr 包含实际输出。? 既然Pstr中存储的是小写到大写的字母,那么在printf中如何将其给出为“WORD”。有人可以吗?解释一下? #include
我有一个 3x3 数组: var my_array = [[0,1,2], [3,4,5], [6,7,8]]; 并想获得它的第一个 2
我意识到您可以使用如下方式轻松检查焦点: var hasFocus = true; $(window).blur(function(){ hasFocus = false; }); $(win
我是一名优秀的程序员,十分优秀!