在Delphi下设计程序怎样做成象CSDN"专家门诊"这样的框架格局？

Question

使用panel控件即可实现。譬如左边的索印标题窗口放在一个panel中，右边的子窗口，不同的各用一个panel用于显示。至于隐藏与否，控制visable属性即可。给个email我，或者给你做一个

Answer 1

OxSplit会非常轻松的完成这个功能的。

Answer 2

cobi你真好！要不帮我作算了！

Answer 3

OxSplit这东西我用过，可能还是这个比较适合些。比较好看。

Answer 4

在哪儿有正式版的OxSplit下载呢？我可不想要Demo版的。

Answer 5

forgot2000(忘记2000年):我做了一个很简单的，不知道是否合你需要。
dfm文件如下：
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 464
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 129
    Height = 437
    Align = alLeft
    BevelOuter = bvNone
    Color = 12369084
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 129
    Top = 0
    Width = 16
    Height = 437
    Align = alLeft
    BevelOuter = bvNone
    Color = 13631439
    TabOrder = 1
    object Label1: TLabel
      Left = 0
      Top = 192
      Width = 16
      Height = 16
      AutoSize = False
      Caption = ' >>'
      OnClick = Label1Click
    end
  end
  object Panel3: TPanel
    Left = 145
    Top = 0
    Width = 391
    Height = 437
    Align = alClient
    BevelOuter = bvNone
    Color = clScrollBar
    TabOrder = 2
    object Panel4: TPanel
      Left = 0
      Top = 80
      Width = 391
      Height = 357
      Align = alBottom
      BevelOuter = bvNone
      Caption = 'Panel4'
      Color = clCaptionText
      TabOrder = 0
    end
  end
endpas文件如下：  
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Label1Click(Sender: TObject);
begin
  if Panel1.Visible then
  begin
    Panel1.Visible := false;
    Label1.Caption := ' >> '
  end else
  begin
    Panel1.Visible := true;
    Label1.Caption := ' << '
  end;
end;end.
你看一下是否能满足你的要求