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

冥界3大法王

  求教，以下代码错在何处？
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

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

冥界3大法王

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

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

Bachelor硕

你的意思是不是TFindComponent.xxx

klamauk

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

pzx521521

不能这样写哦~
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即可