gpt4 book ai didi

Delphi:避免运行时组件选择破折号

转载 作者:行者123 更新时间:2023-12-03 18:34:51 26 4
gpt4 key购买 nike

如何避免 TToggleSwitch 的标题?控制在单击时在其标题上显示选择破折号?

我试过ActiveControl := nil;在点击事件之后,但它仍然会在点击它时显示选择。

enter image description here

最佳答案

您可以将插入器声明与 WM_QUERYUISTATE 的消息处理程序一起使用,如下所示:

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.WinXCtrls;

type
TToggleSwitch = class(Vcl.WinXCtrls.TToggleSwitch)
private
procedure WMQueryUIState(var Msg: TMessage); message WM_QUERYUISTATE;
end;

TForm1 = class(TForm)
ToggleSwitch1: TToggleSwitch;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TToggleSwitch }

procedure TToggleSwitch.WMQueryUIState(var Msg: TMessage);
begin
Msg.Result := UISF_HIDEFOCUS;
end;

end.

可惜没有它的属性。

关于Delphi:避免运行时组件选择破折号,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57660921/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com