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.