PageControl1控件是不是可以改成这样子？

Question

本来pagecontrol1 一般是从左到右放着的，但可不可以第二个在第一个下面，第三个在第二个下面，这样叠起来。怎么设？？要是这个控件不行，哪个控件可以，在哪个面板？

Answer 1

这个属性能满足你的要求吗?
multiline := true;

Answer 2

试试
PageControl的TabPosition属性设置为tpLeft

Answer 3

我估计你想要的是只想显示某一个Sheet, 而其它Sheet完全不可见的控件，
Win3.1面板上有一个NoteBook可以

Answer 4

我试上上面的各位的指教。我还是没实现
问题可以简单地这样说：我想做一个“下一步”，“下一步”这样的注册程序，请问怎么做？不会是多做几个FORM吧，如果是这样，当选第一个的某个选项后，点“上一步”作修改。如何晓得用户先前是选的哪个值？
注意：我不是在做安装程序但其过程是一样的！

Answer 5

使用TNotebook1可达到你的要求，有pages属性，在里添加即可，我做过！！！

Answer 6

按下一步，只要NoteBook1.PageIndex:=1;即可出现你事先设计好的页面！

Answer 7

怎么内容放不上去呀？是不是要放多个notebook

Answer 8

首先设置第一个TabSheet的TabVisible为True，其它TabSheet的TabVisible为False；
// 上一步
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  with PageControl1 do
  if ActivePageIndex > 0 then begin
    i := ActivePageIndex;
    ActivePage.TabVisible :=False;
    Pages[i-1].TabVisible := True;
  end;
end;
// 下一步
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  with PageControl1 do
  if ActivePageIndex < PageCount-1 then begin
    i := ActivePageIndex;
    ActivePage.TabVisible :=False;
    Pages[i+1].TabVisible := True;
  end;
end;

Answer 9

只要一个notebook，
NoteBook1.PageIndex=0为第一页，
NoteBook1.PageIndex=1为第二页，
在NoteBook1.pages中添加页（你需要的），
还不明白吗？？？？？？？？？？？

Answer 10

添加内容时，你改变NoteBook1.PageIndex不就行了吗！！