这样的功能用什么控件来实现呢？

Question

一个窗体上左右各一个panel，之间有个分割条，上面有个箭头。点这个箭头左边的panel不见了，窗体只剩下一个分割条和右面的panel。再点一下分割条上的箭头，左面的panel有显示出来了，恢复成为正常的二个panel和一个带箭头的分割条。急—————————
      |
 左   |     右
      |
      |
—————————点击后—》————————
 |
 |    右
 | 
 |
————————

Answer 1

用第三方控件，网上多的是。用Google搜搜

Answer 2

不用第三方控件都可以很容易实现。//form1 View As Text:object Form1: TForm1
  Left = 208
  Top = 173
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 16
    Height = 453
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 453
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    object Button1: TButton
      Left = 96
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 201
    Top = 0
    Width = 487
    Height = 453
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object Button2: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Button2'
      TabOrder = 0
      OnClick = Button2Click
    end
  end
end//按钮的事件
procedure TForm1.Button1Click(Sender: TObject);
begin
  panel1.Visible:=false;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  panel1.Visible:=true;
end;

Answer 3

就用面板和分割条就行了，点击时设置相应的PANEL的WIDTH

Answer 4

用 zdcnow(磁效应)的方法可以，
也可以用UB的控件，因为他有点击时的事件，
也可以自己做一个。

Answer 5

呵呵，不必用第三方控件也可以，但属性设置比较烦，我不愿意说那么多
你到google里搜索下，很多这样的例子