5

双击窗体上的 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。

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

4

1 回答 1

8

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

于 2012-06-20T18:18:12.503 回答