我在表单上有一个TTabControl,我希望如果tabs(选项卡标题)是焦点,当用户按Ctrl+RightArrow时,它将焦点放在最右边的选项卡上。可悲的是,TTabControl没有OnKeyDown事件,不像TEdit。我如何实现自定义OnKeyDown事件?
TTabControl
OnKeyDown
TEdit
nwnhqdif1#
您可以继承TabControl的WindowProc属性,以便直接对其接收到的消息执行任何您想要的操作,例如:
WindowProc
type TMyForm = class(TForm) TabControl1: TTabControl; ... procedure FormCreate(Sender: TObject); ... private OldTabWndProc: TWndMethod; procedure MyTabWndProc(var Message: TMessage); ... end;
个字符
1条答案
按热度按时间nwnhqdif1#
您可以继承TabControl的
WindowProc
属性,以便直接对其接收到的消息执行任何您想要的操作,例如:个字符