导航条的主窗体怎么做？在线等，高手进...

Question

在delphi里怎样做有导航条的窗体呀，就是在左边我想用panel1,panel1上有按钮，当单击不同的按钮时，在右面出现不同的窗体，当然了，窗体要充满右面的部分，我想问的是这个窗体怎样做呀

Answer 1

1.最直接的方法，在右面放置一个PageControl,然后其子TabSheet的TabVisible都设置为false;
然后在panel1上按钮的事件中，设置PageControl的ActivePageIndex为指定的PageControl就可了2.如果用创建窗口的方法的话，在右边放置一个Panel,设置其Align属性为alClient,然后将要创建的窗口的Parent设置为Panel的句柄即可。

Answer 2

例子：procedure TForm1.Button1Click(Sender: TObject);
var  f2:TForm2
begin
  f2 := TForm2.Create(nil);
  f2.BorderStyle := bsNone;
  f2.WindowState := wsMaximized;
  f2.ParentWindow := Panel2.Handle;
  f2.Show;
end;上面的代码，没有考虑的f2释放的问题，所以当这时重复点击Button1时会内存泄漏解决办法：请查找历史贴子：

Answer 3

找到了，解决的办法，参考这个帖子：http://community.csdn.net/Expert/TopicView3.asp?id=5073838