很简单的问题，大家快来拿分！(100分)

我想在菜单下可以控制界面的改变，例如有两个子菜单，
教师维护，学生维护，
当按下教师维护的时候，在菜单下显示出我们想要的界面，
当按下学生维护的时候，在菜单下显示出我们想要的界面，
但不是另弹出窗体，还是在该菜单的窗体内。因为要另弹窗体实在是麻烦。
还有，主菜单如何在coolbar上显示出来？
谢谢了！

当按下教师维护的时候，在菜单下显示出我们想要的界面，-->
Form1.parent:=FormMain;
FORM1.left:=0;
form1.top:=0;
就行了。

coolbar上显示菜单
先加进一个ToolBar再增加ToolButton后设置其MenuItem属性。
再把ToolBar的ShowCaptions设为True就行了。

用 NoteBook 分成两页

对所有的控件动态设置

用tab/page组件
显示不同的page就可以了

在Coolbar上显示Menu，别忘了设置ToolButton的Group属性。

TO 这么多位高手，怎样才可以将菜单改变颜色？
TO 林林：
我按照你的意思全做了，
Form1.parent:=FormMain;
FORM1.left:=0;
form1.top:=0;
只是把FormMain改成了form2，并且也将FORM2加入了工程，
可是为什么但执行的时候，什么都没有显示呢？
TO lollman：
我找到了notebook，但是不晓的该如何设置，能否说详细一些呢？

我的意思是希望能用菜单来控制显示，但是在显示我想要的界面的时候，
菜单依旧是存在的，就是除了菜单之外，其他的一概变化。
请问各位，我该怎样设置呢？可以说的清楚一些吗？
谢谢！

用tab/page组件，激活不同的page就可以了
用两个PANEL，用菜单分别VISIBLE就是

请问怎样才可以使菜单有颜色呢?
谢谢了 !

to weiweiHU
可以说再详细点吗?
最好把步骤说出来,谢谢了!
首先,tab/page我就找不到了!

用pagecontrol/tab比较方便

各位高手,可否写详细点呢?别总是说一两句,我实在是不懂啊 ,最好
说出在哪里找出这些控件,怎样设置属性,还有代码,好吗 ?
谢谢!

TO
用pagecontrol/tab比较方便
不过为了动态打印方便我一般用PANLE的多，
方法：在FORM上分别放两个PANEL，将第一个PANLE上放教师相关的，第二个放
学生相关的控件、初试VISIBLE随便设如：教师，当然菜单教师此时为VISIBLE为假
同理学生也一样，菜单互辞。
OK

可以使用PageControl，为了使程序有更好的可读性，建议建立教师和学生各一个窗口，如
Fteacher,Fstudent。
用Coolbar加上ControlBar，那Menu的各个菜单分别指派给ControlBar的各个按钮。
使用窗体的停靠方法（具体的方法名称可去查一下）把窗口停靠在指定的Page上。

to 楼上大哥:
我要的就是这个效果,你说的实在太正确了,
但是,我找不到controlbar,我只能用toolbar来建立button与菜单联系,
请问各位高手:
我放置了一个pagecontrol在主窗体上,可是该怎样才能做到
"使用窗体的停靠方法,把窗口停靠在指定的Page上"
呢?

谢谢wlmmlw,我按照你的方法已经实现了我想要的效果了,谢谢你.
但是,还有一个问题,
请问各位高手,我想让菜单加入颜色,该如何做呢?在属性窗口里没有这个
选项,不是加入图片,而是颜色,谢谢了!

但是我现在已经做了好多个窗体了，如果用pnale实现的话，那
所以的工作是不是用重做呢？
如果按照wlmmlw所言的话，那该怎样实现呢？
可以说的详细一点吗？
谢谢了！

我觉得用NOTEBOOK可能比较好用一些。只要在它的PAGES属性中增加相应
的页，比如说student、teacher，在设计时，只要把它的ALIGN设为alClient,
就可以在上面放各种控件了，通过设置ACTIVEPAGE属性可以在不同的页面中
切换，每个页面上的内容是互不影响的，运行时只要PAGEINDEX赋于不同的
值，即可实现各个页面的切换。

使用分页式很方便。

使菜单有颜色如下

unit sample;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
aaa1: TMenuItem;
bbb1: TMenuItem;
ccc1: TMenuItem;
Image1: TImage;
ddd1: TMenuItem;
eee1: TMenuItem;
fff1: TMenuItem;
ggg1: TMenuItem;
hhhh1: TMenuItem;
iiii1: TMenuItem;
jjj1: TMenuItem;
ColoredMenuItem1: TMenuItem;
Coloritem11: TMenuItem;
Coloritem21: TMenuItem;
Coloritem31: TMenuItem;
Coloritem41: TMenuItem;
HHHH2: TMenuItem;
hhhh11: TMenuItem;
hhh21: TMenuItem;
hhh31: TMenuItem;
hhhh12: TMenuItem;
hhh22: TMenuItem;
hhh32: TMenuItem;
hhhh13: TMenuItem;
hhh23: TMenuItem;
hhh33: TMenuItem;
hhhh14: TMenuItem;
hhh24: TMenuItem;
hhh34: TMenuItem;
procedure ccc1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
Height: Integer);
procedure bbb1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
procedure jjj1Click(Sender: TObject);
procedure Coloritem11DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
procedure Coloritem11MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
procedure hhh31DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
procedure hhh34MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
procedure Coloritem41Click(Sender: TObject);
procedure hhh34Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.ccc1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
height:=18;
width:=60;
acanvas.brush.Color:=clblue;
acanvas.TextOut(1,1,TMenuitem(sender).caption);

end;

procedure TForm1.bbb1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
acanvas.Draw(0,2,image1.picture.bitmap);
acanvas.TextOut(arect.left+image1.picture.bitmap.width+2,arect.top,tmenuitem(sender).caption);
end;

procedure TForm1.jjj1Click(Sender: TObject);
begin
showmessage('You clicked "'+Tmenuitem(sender).caption+'" Item'#13#10'Welcome to http://www.wapsec.com.cn/delphi/');
end;

procedure TForm1.Coloritem11DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
Acanvas.brush.Color:=$00EBC596;
// Acanvas.FillRect(acanvas.cliprect);

Acanvas.Font.Color:=clblack;
if Selected then begin
Acanvas.brush.Color:=$00A00000;
Acanvas.Font.Color:=clwhite;
end;
Acanvas.TextOut(arect.left+5,arect.top,tmenuitem(sender).caption);
end;

procedure TForm1.Coloritem11MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
Height:=20;

end;

procedure TForm1.hhh31DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
var i:integer;
begin
Acanvas.brush.Color:=$00EBC596;
Acanvas.FillRect(acanvas.cliprect);
for i:=0 to HHHH2.Count-1 do begin
Acanvas.Font.Color:=clred;
Acanvas.TextOut(5,20*i,hhhh2.Items.caption);
end;

if Selected then begin
Acanvas.brush.Color:=$00A00000;
Acanvas.Font.Color:=clwhite;
end;
Acanvas.TextOut(arect.left+5,arect.top,tmenuitem(sender).caption);

end;

procedure TForm1.hhh34MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
height:=20;
end;

procedure TForm1.Coloritem41Click(Sender: TObject);
begin
showmessage('You clicked ColorMenuItem "'+Tmenuitem(sender).caption+'" Item'#13#10'Welcome to http://www.wapsec.com.cn/delphi/');
end;

procedure TForm1.hhh34Click(Sender: TObject);
begin
showmessage('You clicked "'+Tmenuitem(sender).caption+'" Item'#13#10'Welcome to http://www.wapsec.com.cn/delphi/');
end;

end.