Убрать border у PageControl

[nibufep]

Доброго дня!
Нужно убрать сверху компонента полосу.
Нашел вот этот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    FOriginalPageControlWndProc: TWndMethod;
    procedure PageControlWndProc(var Message: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  CommCtrl;

procedure TForm1.PageControlWndProc(var Message: TMessage);
begin
  FOriginalPageControlWndProc(Message);
  with Message do
    if (Msg = TCM_ADJUSTRECT) and (Message.WParam = 0) then
      InflateRect(PRect(LParam)^, 4, 4);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with PageControl1 do
  begin
    // remove PageControl border
    FOriginalPageControlWndProc := WindowProc;
    WindowProc := PageControlWndProc;
    Realign;
  end;
end;

end.

Ну эта полоса просто теперь перемещается влево, как ее совсем убрать?

[nibufep]

uses CommCtrl

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure TCMAdjustRect(var Msg: TMessage); message TCM_ADJUSTRECT;
  end;

...

procedure TPageControl.TCMAdjustRect(var Msg: TMessage);
begin
  inherited;
  if Msg.WParam = 0 then
    InflateRect(PRect(Msg.LParam)^, 4, 4)
  else
    InflateRect(PRect(Msg.LParam)^, -4, -4);
end;

но у меня ошибка E2003 Undeclared identifier: 'ComCtrls'

[Аватар]

CommCtrl <> ComCtrls
или равно?

[nibufep]

Сообщение от Аватар

CommCtrl <> ComCtrls
или равно?

не понял вопроса.

[Аватар]

В uses нет ComCtrls

[nibufep]

Сообщение от Аватар

В uses нет ComCtrls

добавляю пишет:

E2004 Identifier redeclared: 'Vcl.ComCtrls'

[Аватар]

XE

TPageControl = class(Vcl.ComCtrls.TPageControl);

[nibufep]

Сообщение от nibufep

uses CommCtrl

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure TCMAdjustRect(var Msg: TMessage); message TCM_ADJUSTRECT;
  end;

...

procedure TPageControl.TCMAdjustRect(var Msg: TMessage);
begin
  inherited;
  if Msg.WParam = 0 then
    InflateRect(PRect(Msg.LParam)^, 4, 4)
  else
    InflateRect(PRect(Msg.LParam)^, -4, -4);
end;

но у меня ошибка E2003 Undeclared identifier: 'ComCtrls'

вообще не работает...

[nibufep]

а нет. работает! Нужно было вставить выше

type
  TForm = class(TForm)
....
end;

спасибо за помощь!