双击Delphi XE2应用程序中的TStaticText将标题复制到剪贴板

Question

双击表单上的TStaticText将该TStaticText的标题复制到剪贴板.不需要双击事件.

重现步骤:

• 使用Win 64和Delphi XE2更新4.
• 创建一个VCL表单应用程序.
• 在表单上放置一个TEdit.
• 在表单上放置一个TStaticText.将标题更改为"TStaticText1Caption"
• 在表单上放置第二个TStaticText.将标题更改为"TStaticText2Caption"
• 运行程序(F9)
• 在TEdit中键入一些文本.全部选中并通过CTRL + C复制.
• 删除TEdit中的文本.粘贴它以验证文本是您复制的内容.
• 删除TEdit中的文本.
• 双击TStaticText.
• 将文本粘贴到TEdit中.请注意,它不是原始复制文本,而是TStaticText的标题.

我已经向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.

有人对如何防止这种情况有任何想法吗？

Answer 1

这不是delphi错误,这种行为是Windows Static Control由TStaticText VCL组件创建的.

从Windows Vista开始,如果设置SS_NOTIFY样式(SS_NOTIFY样式由TCustomStaticText组件的CreateParams方法设置),则双击时,静态文本控件会自动将其内容复制到剪贴板.

推荐讲座如何使用户可以轻松地将对话框上的静态文本复制到剪贴板？

作为解决方法,您可以删除覆盖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通知代码.