Помогите создать компонент на основе PageControl

[SibBear]

Мне нужен PageControl с дополнительным свойством ImageList2, чтобы у вкладки рисовалось 2 картинки, перед текстом и после него. И нужна обработка события onImage2MouseClick.
Я не могу толком разобраться с созданием компонентов. Может кто занимался подобным?

[Stilet]

Вот когда-то делал примерно то что ты хочеш, кто то тут вопрошал:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    Button1: TButton;
    procedure TabControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  tb:array of TButton;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

 if high(tb)<TabIndex then setlength(tb,TabIndex+1);
 if tb[TabIndex]=nil then begin
  tb[TabIndex]:=TButton.Create(TabControl1);
  tb[TabIndex].Parent:=TabControl1;
  tb[TabIndex].Caption:='X';
  tb[TabIndex].Left:=rect.Left;
  tb[TabIndex].Top:=rect.Top;
  tb[TabIndex].Width:=20;
  tb[TabIndex].Height:=rect.Bottom;
  tb[TabIndex].Visible:=true;
 end;    
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TabControl1.Tabs.Add('qwerty');
end;

end.

Замени Кнопки на Картинки и радуйся.

[SibBear]

А как нибудь сделать это при OwnerDraw=False? Иначе оформление слетает...

11:30
все, спасибо, разбираюсь

13:19
не могу разобраться, если я делаю

tb[TabIndex].Click:=onMyClick;

а далее

procedure TForm1.onMyClick(Sender: TObject)
begin
Как вот тут получить номер кнопки которую нажали?
end;

[Kotofff]

procedure TForm1.onMyClick(Sender: TObject)
begin
Index := (Sender as TButton).Tag;
end;

Но перед этим когда создаешь присваивай tb[TabIndex].Tag например TabIndex, чтобы потом при клике обрабатывать этот самый Tag - что-то типа номера кнопки у тебя будет.

[Stilet]

А зачем тебе номер? Есть же имя у кнопки, или по крайней мере выставляй его при создании. Впрочем можно номер кнопки в свойство TAG пихнуть а потом проверять TButton(Sender).tag

[s.Creator]

Для картинки слева можно использовать
TTabSheet.ImageIndex (и TPageControl.Images)
а вообще нашол в нете PageExtControl.zip
Там и кнопочка закрытия на каждой вкладке - надеюсь подойдет.