首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[求助]请教大家，倒数第2行怎么改？
发表于: 2021-1-20 21:25 3001

[求助]请教大家，倒数第2行怎么改？

ninebell 活跃值
2021-1-20 21:25
3001

请教大家，倒数第2行怎么改？

if (GetAsyncKeyState(VK_LWIN) and (GetAsyncKeyState(Ord('B'))) < 0) then    // Win+B
  begin
    Memo1.Clear;

    Memo1.Lines.Add(Activecontrol.Name);
    (Activecontrol.Name).CopyToClipboard;===》 这行Delphi代码有问题
  end;



报以下错误：E2029 Statement expected but 'CLASS' found


[培训]科锐逆向工程师培训第53期2025年7月8日开班！

收藏
免费 ・0
支持
分享
最新回复 (5)
Mxixihaha
雪    币： 5299
活跃值： (5340)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
2 楼
uses Clipbrd;


Clipboard.SetTextBuf(PChar(Activecontrol.Name)); 
2021-1-20 22:01
0
ninebell
雪    币： 39261
活跃值： (7505)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
3 楼
Mxixihaha uses Clipbrd; Clipboard.SetTextBuf(PChar(Activecontrol.Name));

没有效果，哥们。


 if (GetAsyncKeyState(VK_LWIN) and (GetAsyncKeyState(Ord('B'))) < 0) then              // Win+B
  begin
    SynMemo1.Clear;
    SynMemo1.Lines.Add(Activecontrol.Name);

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

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

最后于 2021-1-20 22:32 被ninebell编辑 ，原因：
2021-1-20 22:31
0
Mxixihaha
雪    币： 5299
活跃值： (5340)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
ninebell Mxixihaha uses Clipbrd; Clipboard.SetTextBuf(PChar(Activecontrol.Name)); 没有 ...
你这个代码都有问题. 写得矛盾. 
2021-1-21 14:25
0
ninebell
雪    币： 39261
活跃值： (7505)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
5 楼
Mxixihaha 你这个代码都有问题. 写得矛盾.
ebcK9s2c8@1M7s2y4Q4x3@1q4Q4x3V1k6Q4x3V1k6%4N6%4N6Q4x3X3f1#2x3Y4m8G2K9X3W2W2i4K6u0W2j5$3&6Q4x3V1k6@1K9s2u0W2j5h3c8Q4x3X3b7I4x3K6f1#2x3K6t1%4i4K6u0V1x3g2)9J5k6o6q4Q4x3X3g2Z5N6r3#2D9
解决了，见5楼，把.name去了，就行了。
2021-1-21 17:36
0
Mxixihaha
雪    币： 5299
活跃值： (5340)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
ninebell a8fK9s2c8@1M7s2y4Q4x3@1q4Q4x3V1k6Q4x3V1k6%4N6%4N6Q4x3X3f1#2x3Y4m8G2K9X3W2W2i4K6u0W2j5$3&6Q4x3V1k6@1K9s2u0W2j5h3c8Q4x3X3b7I4x3K6f1#2x3K6t1%4i4K6u0V1x3g2)9J5k6o6q4Q4x3X3g2Z5N6r3#2D9 解决了，见5楼，把.name去了，就行了。
你那个标题明显起得比这篇贴子稍微就多那么一点智慧.  <<提问的智慧>> 抽空看一看,  

你发的代码倒数第二行的代码就是想复制那个字符串

3楼那个回复就更奇葩了.  你知道为什么贴子里面有人不明白你的意思?   就是缺少提问正确的表达方法. 不然也不止我一个人来了.
2021-1-21 21:25
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回