gpt4 book ai didi

Delphi:让复制/粘贴工作

转载 作者:行者123 更新时间:2023-12-03 19:41:34 25 4
gpt4 key购买 nike

所以我想在我的 Delphi 应用程序中添加一个复制/粘贴功能,它可以绘制不同的形状并用它们做一些事情。

这是 Copy 菜单项的 on even 处理程序:

procedure TForm1.Copy1Click(Sender: TObject);
begin
Clipboard.Open;
if SelectShape <> nil then
clipboard.SetComponent(SelectShape);
Clipboard.Close;
end;

我得到了错误:
       Incompatible types: 'TComponent' and 'TBaseShape'  

TBaseShape 是我的应用程序中所有形状的祖先类

我不知道为什么它不起作用...

最佳答案

另一种方法是使用私有(private)数据格式,将对象序列化为 XML 或其他易于调试的基于文本的结构,然后将其放到剪贴板上。将您的对象(假设它是某种图形)渲染到位图上,并将其也放置在剪贴板上(剪贴板可以同时保存多种/多种格式),以便用户可以粘贴到绘画中,这也是有用/礼貌的、单词等,得到“某物”。
这是一个使用 GPX 数据做一些事情的问题

How to paste a custom format clipboard data into a TMemo?

关于Delphi:让复制/粘贴工作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20828943/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com