Delphi:如何使用 TEdit 文本 [duplicate] 获取组件的确切名称

Delphi: how to get exact name of component with TEdit text [duplicate]

提问人:user578332 提问时间:11/16/2023 更新时间:11/16/2023 访问量:136

问:

对不起,也许我无法清楚地表达我的问题。我有很多 Tpanels。我需要使用 TEdit.text 获取 TPanel 的确切名称。例如 TEdit.text 是 26,而不是使用 ,我想要if panel26.color=clred then ...if (Panel+edit1.text).color=clred then ...

德尔福 Delphi-10.4-悉尼

评论

1赞 Adriaan 11/16/2023
嗨,你的问题格式不好,很难理解。我个人不确定你在这里问什么。

答:

1赞 agengha 11/16/2023 #1

你可以像这样使用 FindComponent

var
  TmpPanel: TPanel;
begin
  TmpPanel := FindComponent('Panel' + edit1.text) as TPanel;
  if TmpPanel <> nil then      // We found it
    if TmpPanel.color=clred then ...
end;

如果你想更深入地挖掘,我的答案的来源:我怎样才能引用一个在运行时确定名称的控件?

评论

3赞 Ken White 11/16/2023
如果您可以通过从一个答案复制/粘贴到另一个答案来回答一个问题,那么该问题就是重复的,应该这样关闭。
0赞 agengha 11/17/2023
是的,先生。如果可以的话,我会的。我怎样才能关闭它?我没有看到任何选项可以在任何地方关闭问题。那我应该标记它吗?供将来参考。我只在这里呆了大约一个星期,所以请开导我。
1赞 Ken White 11/17/2023
在你获得足够的代表来自己投出接近的票之前,你使用一个标志来表明它是重复的。标志链接位于问题的左下角,在标签下方。获得关闭投票权限后,关闭链接将显示在同一位置(标签下方)。
1赞 agengha 11/17/2023
我明白了,所以我检查了“需要版主干预”,解释它是重复的,然后提供我认为它相关的问题的链接。谢谢好心的先生!