我如何将RegisterClass（）用于单元-HowcaniworkRegisterClass()tounits

0  

You might be able to reference your components like this:

您可以像这样引用您的组件:

TLabel(Form1.FindComponent('Label1')).Caption := '...';
TCheckBox(Form1.FindComponent('CheckBox12')).Checked := False;

But it's really a pain...

但这真的很痛苦......

0  

I think you have two options.

我想你有两个选择。

1) you can assign each component a unique numeric ID. And save it into .Tag property. Just like u use to generate and bind IDs in .HelpContext properties.

1)您可以为每个组件分配唯一的数字ID。并将其保存到.Tag属性中。就像你用来生成和绑定.HelpContext属性中的ID一样。

Then to get the control by number you would enumerate Form.Controls and get the one with proper Tag value.

然后,为了通过数字获得控件,您将枚举Form.Controls并获得具有适当Tag值的那个。

The problem would be to have two separate ID lists, in PAS files and DFM files, in sync. Mistyping would be hard to notice. Especially since you have no constants in DFM but only "magic numbers".

问题是在PAS文件和DFM文件中同时具有两个单独的ID列表。迷雾很难被注意到。特别是因为你在DFM中没有常数但只有“幻数”。

2) Set .Name property and use iMan Biglari's recipe - FindComponent by name. The question is if you can have .Name but not variable. Since no one answers - just try and see. To my experience - with Delphi 5, hopefully D7 is mostly the same - you can just delete the variable.

2)设置.Name属性并使用iMan Biglari的配方 - FindComponent的名称。问题是你是否可以拥有.Name而不是变量。因为没有人回答 - 只是试着看。根据我的经验 - 使用Delphi 5,希望D7大致相同 - 你可以删除变量。

• If you made wrong declaration of variable, then Delphi editor would notice and ask to correct it.

如果你做了错误的变量声明,那么Delphi编辑会注意并要求纠正它。

• If you have variable without DFM object, Delphi would notice it and ask to remove it.

如果你有没有DFM对象的变量,Delphi会注意到它并要求删除它。

• But if there is DFM object without corresponding variable, then Delphi editor is oblivious. Maybe it thinks that the object is inherited or whatever. But if you did not declare it at all it does not mind.

但是如果有没有相应变量的DFM对象,那么Delphi编辑器就不知道了。也许它认为对象是继承的或其他什么。但如果你根本没有声明它就不介意了。

However, since you deleted Names, it looks like it is not possible to you for some reason.

但是,由于您删除了名称,因此出于某种原因看起来不可能。

In both cases you would have to cache value if some procedure makes a lot of accesses to some control. And maybe even across the procedures. In effect yu would manually restore those variables at least for most used controls.

在这两种情况下,如果某些过程对某些控件进行了大量访问,则必须缓存值。甚至可能跨过程序。实际上,yu将至少为大多数使用的控件手动恢复这些变量。