Delphi程序如何调用动态控件名？

冥界3大法王 · 发表于 2021-1-20 22:29

本帖最后由冥界3大法王于 2021-1-20 23:06 编辑

  求教，以下代码错在何处？
if (GetAsyncKeyState(VK_LWIN) and (GetAsyncKeyState(Ord('B'))) < 0) then             // Win+B
  begin
SynMemo1.Clear;
SynMemo1.Lines.Add(Activecontrol.Name);

   TsMemo(Activecontrol.Name).SelectAll;
   TSynMemo(Activecontrol.Name).CopyToClipboard;
   TSynMemo(Activecontrol.Name).PasteFromClipboard;
  end;
end;

如成功的话Memo1-Memo10000就不用写1万次事件了，只需要按次热键。容器内容即可粘过去。

klamauk · 发表于 2021-1-20 23:00

不是很明白，Activecontrol.Name是个对象吗？

冥界3大法王 · 发表于 2021-1-20 23:05

klamauk 发表于 2021-1-20 23:00
不是很明白，Activecontrol.Name是个对象吗？

差不多吧，得到的是动态控件名。

Bachelor硕 · 发表于 2021-1-20 23:20

你的意思是不是TFindComponent.xxx

klamauk · 发表于 2021-1-20 23:20

Name得到的是字符串吧，如果Activecontrol是控件对象，不要加.Name。
TsMemo(Activecontrol).SelectAll;

pzx521521 · 发表于 2021-1-21 10:43

本帖最后由 pzx521521 于 2021-1-21 10:44 编辑

不能这样写哦~
Activecontrol.Name 是string类型的, 不是一个object(pointer) 是没有办法强行转换为TSynMemo/TsMemo

如果TSynMemo是一个控件 , 可以通过该控件的父控件(如一个form)的ControlCount 获取所有的Control(这里面包含Memo1-Memo10000)还有其他的一些控件(比如有一些button)
这个时候通过类型判断就好了如:

[Delphi] 纯文本查看 复制代码

var
  I: Integer;
begin
  for I := 0 to self.ControlCount - 1 do
  begin
    if self.Controls[I] is TButton then
       (self.Controls[I] as TButton).Caption := '999'
  end;
end;

如果不是控件, 那么创建的时候把他加到一个list里面, 遍历list即可

帐号		自动登录	找回密码
密码			注册[Register]

[求助] Delphi程序如何调用动态控件名？

免费评分

免费评分