mirror of
https://github.com/keymanapp/keyman.git
synced 2026-10-15 10:27:31 +00:00
31 lines
536 B
ObjectPascal
31 lines
536 B
ObjectPascal
unit DebugBitBtn;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, Buttons;
|
|
|
|
type
|
|
TDebugBitBtn = class(TBitBtn)
|
|
private
|
|
procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{ TDebugBitBtn }
|
|
|
|
procedure TDebugBitBtn.WMGetDlgCode(var Message: TWMGetDlgCode);
|
|
begin
|
|
Message.Result := Message.Result or DLGC_WANTTAB;
|
|
end;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('Keyman', [TDebugBitBtn]);
|
|
end;
|
|
|
|
end.
|