Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:08:35
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;

赞