delphi 如何覆盖TTabControl OnKeyDown？

slwdgvem 于 9个月前发布在其他

关注(0)|答案(1)|浏览(92)

我在表单上有一个TTabControl，我希望如果tabs（选项卡标题）是焦点，当用户按Ctrl+RightArrow时，它将焦点放在最右边的选项卡上。可悲的是，TTabControl没有OnKeyDown事件，不像TEdit。我如何实现自定义OnKeyDown事件？

delphi

来源：https://stackoverflow.com/questions/77729177/how-to-override-ttabcontrol-onkeydown

1条答案

按热度按时间

nwnhqdif1#

您可以继承TabControl的WindowProc属性，以便直接对其接收到的消息执行任何您想要的操作，例如：

type
  TMyForm = class(TForm)
    TabControl1: TTabControl;
    ...
    procedure FormCreate(Sender: TObject);
    ...
  private
    OldTabWndProc: TWndMethod;
    procedure MyTabWndProc(var Message: TMessage);
    ...
end;

个字符

赞(0）回复(0）举报 9个月前

我来回答

delphi 如何覆盖TTabControl OnKeyDown？

1条答案

相关问题

热门标签

最新问答