Окна как вкладки

[neo7777]

Пожалуйста, подскажите, как создать окна в программе на подобия того как организованы окна в Internet Explorer 7. Такие же типы окон-вкладок используются в Opera и Qip.
Перерыл кучу инфы, сам так ничего и не нашёл!

[BOBAH13]

В опере вкладки сделаны саморучно, qip, internet explorer - TPageControl или чтот такое ( на вкладке Win32 )

[neo7777]

нет, TPageControl не имеет кнопку закрыть!
и перебрав весь спектр визуальных стилей для TPageControl я не нашёл ничего похожего на то как выглядят вкладки-окна в qip-е и в explorer

[Stilet]

Значит нужно самому создать такой компонентик или искать среди имеющихся.

[neo7777]

В этом и заключается вопрос.
Кто знает такой компонент!
Или если кто-то уже создавал сам подобный компонент, дайте совет как с минимальными затратами реализовать подобный компонент.

p.s. Может где пример уже есть. Сам я не смог найти.

[BOBAH13]

Ну я сам делал вкладки скинированные как у оперы ) Не так уж и долго их делать... А есть всякие, смотреть на тори.нет

[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.

Только тут я не напрягался, потому названия вкладок не отображал, и кнопку приставил не справа а слева.

[neo7777]

Спасибо!
Хороший пример.
То что надо.

А внешний вид всех вкладок, в смысле Style, как поменять?

уже сообразил сам.
но ещё не пробовал.
если будут советы ещё, ПИШИТЕ!

[neo7777]

нашёл ответ на все свои вопросы!

http://www.tmssoftware.com/site/apc.asp