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错误，此行为是由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通知代码。

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

1 个答案: