如何实现的！

Question

thinkcat(思想猫):
发给你了。

Answer 1

yuanjujing(※挪威森林※):
发了。

Answer 2

turbozzh(涡轮超人):
发了。

Answer 3

zws():发了。
wangxd1976(东东):给我你的地址我才能发呀。

Answer 4

我把代码贴出来了//unit1.pas
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Tabs;
type
  TForm1 = class(TForm)
    TabSet1: TTabSet;
    StatusBar1: TStatusBar;        
    Notebook1: TNotebook;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Tabset1.Parent:=StatusBar1;
  Tabset1.Left:=1;
  Tabset1.Top:=1;
  Tabset1.Width:=198;
end;procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  Notebook1.PageIndex:=NewTab;
end;end.//unit1.dfm
object Form1: TForm1
  Left = 144
  Top = 87
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    536
    348)
  PixelsPerInch = 96
  TextHeight = 13
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 536
    Height = 327
    Align = alClient
    TabOrder = 2
    object TPage
      Left = 0
      Top = 0
      Caption = 'Code'
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 536
        Height = 327
        Align = alClient
        Lines.Strings = (
          'This page is Code')
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Diagram'
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 536
        Height = 327
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'This page is Diagram')
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object TabSet1: TTabSet
    Left = 112
    Top = 240
    Width = 113
    Height = 17
    Anchors = [akLeft]
    DitherBackground = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    StartMargin = 0
    Tabs.Strings = (
      'Code'
      'Diagram')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 327
    Width = 536
    Height = 21
    Panels = <
      item
        Width = 200
      end
      item
        Text = 'And this is the Status'
        Width = 50
      end>
    SimplePanel = False
  end
end

Answer 5

该死的破网，昨天断网没上来，能给我发一份吗！[email protected]

Answer 6

to  li_zhifu(东北人):
我用你的方法试了，ok。但我如果想用一个新建按钮动态增加新也该如何如里！

Answer 7

就是新增的memo如何指定parent,有谁知道吗！