双击Delphi XE2应用程序中的TStaticText将标题复制到剪贴板
双击表单上的TStaticText将该TStaticText的标题复制到剪贴板.不需要双击事件.
重现步骤: >使用Win 64和Delphi XE2更新4. 我已经向Embarcadero提交了一份错误报告. 我尝试将双击事件分配给TStaticTexts.它仍然将标题复制到剪贴板,即使它执行双击事件. procedure TForm1.StaticText1DblClick(Sender: TObject); begin Edit1.Text := 'Hello'; end; procedure TForm1.StaticText2DblClick(Sender: TObject); begin Edit1.Text := 'World'; end; TLabel或我尝试过的任何其他VCL控件都不会发生这种情况. 我们在表格上有很多TStaticTexts用于视觉设计目的,不能选择改用TLabels. 有人对如何防止这种情况有任何想法吗? 解决方法
这不是delphi错误,这种行为是由TStaticText VCL组件创建的
Windows Static Control 引起的.
从Windows Vista开始,如果设置SS_NOTIFY样式(SS_NOTIFY样式由TCustomStaticText组件的CreateParams方法设置),则双击时,静态文本控件会自动将其内容复制到剪贴板. 推荐讲座How do I make it so that users can copy static text on a dialog box to the clipboard easily? 作为解决方法,您可以删除覆盖CreateParams方法的SS_NOTIFY样式,如下所示 type TStaticText = class(Vcl.StdCtrls.TStaticText) protected procedure CreateParams(var Params: TCreateParams); override; end; TForm1 = class(TForm) StaticText1: TStaticText; private public end; var Form1: TForm42; implementation {$R *.dfm} { TStaticText } procedure TStaticText.CreateParams(var Params: TCreateParams); begin inherited; with Params do Style := Style and not SS_NOTIFY; end; 注意:您必须知道,如果从控件中删除此样式,当用户单击或双击控件时,您将不会收到STN_CLICKED,STN_DBLCLK,STN_DISABLE和STN_ENABLE通知代码. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- 如何在Groovy中提取子字符串?
- spring – CrudRepository findOne()和JpaRepository get
- golang 启动流程
- Lua的类实现继承、多态以及setmetatable方法
- delphi DSUtil.pas Undeclared identifier :'NULL&#
- php – Laravel 5.3多个文件上传
- spring – 是否可以将外部bean配置xml文件导入resources.g
- VB6.0调用WEBService问题
- delphi – 使用VCL样式时,程序图标在标题栏中看起来很奇怪
- .net – 为什么我在IDisposable类中使用私有成员IDispos获取