Создание своего класса

[AlexandrSid]

Помогите пожалуйста разобраться.
Такая проблема есть у меня форма, на форме расположена всякое и PageControl. На странице этого PageControl расположены StringGrid, пару ComboBox и т.д. Необходимо что бы при добавлении страницы все эти компоненты создавалить вместе с ней.
Думал, что надо создать класс этого PageControl в котором указать все необходимые компоненты расположенные на нем, но не получается создать такой класс. Подскажите что делать.
Заранее спасибо.

From Stilet: Давай без ругани и матовства. Это никому не нужно

[pu4koff]

создаешь примерно такой класс страницы:

TMySheet = class(TTabSheet)
    b: TButton;
   procedure BClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

...

constructor TMySheet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  b := TButton.Create(Self);
  b.SetBounds(10,10,50,20);
  b.Caption := 'My Button';
  b.Parent := Self;
  b.OnClick := BClick;
end;

destructor TMySheet.Destroy;
begin
  b.Free;
  inherited Destroy;
end;

procedure TMySheet.BClick(Sender: TObject);
begin
  ShowMessage('Button '+ Name + ' click');
end;

тут будет кнопка одна, при нажатии на которую выдается сообщение.

добавление страницы в PageControl будет примерно такое:

var
  s: TMySheet;
begin
  s := TMySheet.Create(PageControl1);
  s.PageControl := PageControl1;
  s.Name := 'TabSheet'+IntToStr(PageControl1.PageCount);
  s.Caption := s.Name;

или же можно создать фрейм. тогда уже можно будет без создания класса обойтись.
в меню выбираешь File/New/Frame
оформляешь как обычную форму. кидаешь кнопочки, обработчики пишешь.
тогда добавление закладки будет примерно такое:

var
  s: TTabSheet;
begin
  s := TTabSheet.Create(PageControl1);
  s.PageControl := PageControl1;
  s.Name := 'TabSheet'+IntToStr(PageControl1.PageCount);
  s.Caption := s.Name;
  TFrame1.Create(s).Parent := s;

[Stilet]

Если не ошибаюсь, недавно уже обсуждалась тема добавления страниц для PageControl. Подрули поиском.

[AlexandrSid]

Спасибо огромное pu4koff, разобрался теперь все работает.