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

The author:(作者)aaa
published in(发表于) 2014/7/19 0:11:08
Delphi带导航菜单的主界面实例

Delphi带导航菜单的主界面实例

带导航菜单的主界面

实例说明

在窗体界面中，菜单栏是不可缺少的重要组成部分。该实例是用其他的组件来制作一个模拟菜单栏。在程序运行后，单击窗体上面的按钮，将会在按钮的下面显示一个下拉列表，如图1.13所示



技术要点

在该实例中，将PopupMenu控件以鼠标单击的形式显示下拉菜单，用到了PopupMenu控件的Popup方法，其功能是右击鼠标时使PopupMenu控件出现在Popup方法指定的位置。

在向ListView组件添加菜单信息时，必须在前面写入添加语句，如Listview1.Items.Add,否则添加的菜单信息将替换前一条信息。在单击相应的按钮时，应先将ListView组件清空，否则在ListView组件中将继续推进上一次的菜单信息。

实现过程

1.新建一个标准工程，创建一个新窗体，设置窗体的Name属性为mainform.

2.添加TImage、TSpeedButton、TPopupmenu、TListView、TImageList和TTimer组件。

3.相关组件的主要属性如表1.3所示。



表1.3 主要增加的属性设置

4.主要程序代码如下：

procedure Tmainform.FormShow(Sender: TObject);

begin

mainform.StatusBar1.Panels[0].Text :='欢迎您进入明日房地产信息管理系统';

end;

procedure Tmainform.Timer1Timer(Sender: TObject);

begin

mainform.StatusBar1.Panels[2].Text :='现在时间： '+datetimetostr(now);

end;

procedure Tmainform.N27Click(Sender: TObject);

begin

toolbar1.Show;

end;

procedure Tmainform.BitBtn1Click(Sender: TObject);

var

newitem:Tlistitem;

begin

if panel3.Align=altop then

begin

panel4.Align:= albottom;

panel5.Align:= albottom;

Panel6.Align:= albottom;

panel7.Align:= albottom;

end

else

panel3.Align:=altop;

Listview1.Clear;

newitem:=listview1.Items.Add;

newitem.Caption:='房屋销售管理';

newitem.ImageIndex:=1;

newitem:=listview1.Items.Add;

newitem.Caption:='房屋销售收款管理';

newitem.ImageIndex:=2;

newitem:=listview1.Items.Add;

newitem.Caption:='客户资料管理';

newitem.ImageIndex:=3;

newitem:=listview1.Items.Add;

newitem.Caption:='房屋销售收款安排查询';

newitem.ImageIndex:=4;

newitem:=listview1.Items.Add;

newitem.Caption:='房屋退款管理';

newitem.ImageIndex:=5;

end;

procedure Tmainform.BitBtn2Click(Sender: TObject);

var

newitem:Tlistitem;

begin

if panel4.Align=altop then

begin

panel3.Align:= albottom;

panel5.Align:= albottom;

Panel6.Align:= albottom;

panel7.Align:= albottom;

end

else

panel4.Align:=altop;

Listview1.Clear;

newitem:=listview1.Items.Add;

newitem.Caption:='销售代表房屋销售统计报表';

newitem.ImageIndex:=6;

newitem:=listview1.Items.Add;

newitem.Caption:='楼盘销售预订数据统计报表';

赞