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

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

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

请教大家，倒数第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


[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

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


Clipboard.SetTextBuf(PChar(Activecontrol.Name)); 
2021-1-20 22:01
0
ninebell
雪    币： 35508
活跃值： (7155)
能力值： ( 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
雪    币： 4333
活跃值： (4323)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
ninebell Mxixihaha uses Clipbrd; Clipboard.SetTextBuf(PChar(Activecontrol.Name)); 没有 ...
你这个代码都有问题. 写得矛盾. 
2021-1-21 14:25
0
ninebell
雪    币： 35508
活跃值： (7155)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
5 楼
Mxixihaha 你这个代码都有问题. 写得矛盾.
https://www.52pojie.cn/thread-1355327-1-1.html
解决了，见5楼，把.name去了，就行了。
2021-1-21 17:36
0
Mxixihaha
雪    币： 4333
活跃值： (4323)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
ninebell https://www.52pojie.cn/thread-1355327-1-1.html 解决了，见5楼，把.name去了，就行了。
你那个标题明显起得比这篇贴子稍微就多那么一点智慧.  <<提问的智慧>> 抽空看一看,  

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

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