双击窗体上的TStaticText会将该TStaticText的标题复制到剪贴板。不需要双击事件。

重现步骤:

  • 使用Win 64和Delphi XE2更新4。
  • 创建一个VCL Forms应用程序。
  • 在表单上放置一个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,并且不能选择更改为TLabel。

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

    最佳答案

    这不是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通知代码。

    10-05 22:25
    查看更多