为什么 THotKey 没有 Align 属性，我该如何添加它？

Question

在Delphi 10.4.2 32-bit VCL Application in Windows 10中，我尝试使用THotKey控件输入热键。由于我经常使用 Align 属性来创建一个整洁的 UI，我想知道为什么 THotKey 没有 Align 属性。即使 TRzHotKeyEdit、TJvHotKey 和 TJvDotNetHotKey 也没有 Align 属性.

是否可以模拟一个THotkey.Align属性？或者是否有另一个带 Align 属性的热键控件？

Answer 1

创建一个单元以将其用作派生自 THotKey 的新组件：

unit ExtHotKey;

// Published the Align property

interface

uses
  System.Classes,
  Vcl.ComCtrls;

type
  TExtHotKey = class(THotKey)
  published
    property Align;
  end;

procedure Register;

implementation

procedure Register;
begin
  System.Classes.RegisterComponents('PAComponents', [TExtHotKey]);
end;

end.

然后将其插入到新的或现有的包中并安装该包。

在那之后，Align 属性在 Object Inspector 中可用并且完美运行：

为什么 THotKey 没有 Align 属性，我该如何添加它？

Why does THotKey not have an Align property and how can I add it?

delphi

hotkeys

delphi-10.4-sydney