![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; procedure FormCreate(Sender: TObject); private { Private declarations } procedure EditWndProc(var Message: TMessage); public { Public declarations } end; var Form1: TForm1; EditHandle: THandle; EditPointer:Pointer; implementation {$R *.dfm} procedure TForm1.EditWndProc(var Message: TMessage); begin case Message.Msg of WM_KEYDOWN : //如果是按键消息 begin if Message.WParam in [37,39] then //如果是左右箭头 Exit; end; end; Message.Result:=CallWindowProc(EditPointer, EditHandle, Message.Msg, Message.WParam, Message.LParam); end; procedure TForm1.FormCreate(Sender: TObject); Var P:Pointer; begin EditHandle:=PageControl1.Handle; if EditHandle<>0 then begin EditPointer := Pointer(GetWindowLong(EditHandle, GWL_WNDPROC)); P := Classes.MakeObjectInstance(EditWndProc); SetWindowLong(EditHandle, GWL_WNDPROC, Longint(P)); end; end; end.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步