双击窗体上的TStaticText会将该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通知代码。