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

Тема в разделе "Delphi - Система", создана пользователем neo7777, 7 апр 2008.

  1. neo7777

    neo7777 Member

    Регистрация:
    27 фев 2008
    Сообщения:
    7
    Симпатии:
    0
    Пожалуйста, подскажите, как создать окна в программе на подобия того как организованы окна в Internet Explorer 7. Такие же типы окон-вкладок используются в Opera и Qip.
    Перерыл кучу инфы, сам так ничего и не нашёл!
     
  2. neo7777

    neo7777 Member

    Регистрация:
    27 фев 2008
    Сообщения:
    7
    Симпатии:
    0
  3. neo7777

    neo7777 Member

    Регистрация:
    27 фев 2008
    Сообщения:
    7
    Симпатии:
    0
    а вот и ответы:

    или так: http://www.tmssoftware.com/site/apc.asp

    или так:

    [codebox]
    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.
    [/codebox]


    кстати, пример продемонстрировал Stilet с http://www.programmersforum.ru
     
Загрузка...

Поделиться этой страницей