delphi OutLook界面实例

OutLook界面
程序说明
程序主界面包括菜单栏、工具栏、状态栏和树状视图。OutLook界面美观、友好，是一个很实用的程序主界面，并且菜单和工具栏是可移动的，如果在开发程序中应用这一技术可以得到用户的认同。运行本例，效果如图1.12所示。

技术要点
一般程序的菜单栏和工具栏是不可移动的，但是只要将组件放在TCoolBar组件中，组件就可以移动。在本例中使用TActionToolBar组件制作菜单栏，使用TToolBar制作工具栏，并在窗体的OnShow事件处理过程中，设置他们的Parent属性为TCoolBar组件，这样就可以将他们放置在TCoolBar组件中了，也就实现了菜单栏和工具栏移动的效果。
注意：组件根据指定Parent属性的先后顺序，在父组件中自上向下排列。
实现过程
1.新建一个工程，该工程会自动创建一个主窗体，默认命名为Form1.
2.在窗体上添加TActionToolBar组件、CoolBar组件、TToolBar组件、TTreeView组件、TActionManager组件、TStatusBar组件和TImageList组件。
3.程序代码如下：
procedure TForm1.FormShow(Sender: TObject);
begin
actiontoolbar1.parent:=coolbar1;
actiontoolbar1.Visible:=True;
panel2.parent:=coolbar1;
panel2.Height:=50;
end;
procedure TForm1.Action4Execute(Sender: TObject);
begin
Form1.Color:=clred;
end;
procedure TForm1.Action5Execute(Sender: TObject);
begin
Form1.Color:=clgreen;
end;
procedure TForm1.Action6Execute(Sender: TObject);
begin
Form1.Color:=clskyblue;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
panel2.Top:=24;
end;