china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用Delphi实现选单的自动隐藏功能

2000-08-14 12:17:29

  在Windows 9x操作系统中,都有选单自动隐藏功能,不仅可以扩大应用软件的可视范围,而且又不耽误开始选单的操作,特别是同时打开多个应用程序时,能进行方便地切换,不让别人知道你后台运行的程序。在这里,我为大家介绍一下用Delphi实现该项功能的方法。

  首先,建立一个新的Project。然后,在form1中添加一个Panel控件,它的Align属性为alBottom,Visible属性为true,并记下top属性的值,这里为307。在form1中添加一个Image控件,它的Align属性为alClient。在Panel控件中添加三个Button控件。Button1的Caption属性为“开启自动隐藏”,Enabled属性为true;Button2的Caption属性为“关闭自动隐藏”,Enabled属性为false;Button3的Caption属性为“退出”,Enabled属性为false。

  最后,要对各个控件的操作进行编程。在这里要设置一个Boolean类型的全局变量flag,初值为false。

完整程序如下:

  unit test;

  interface

  uses

   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

   StdCtrls, ExtCtrls;

  type

   TForm1 = class(TForm)

  Image1: TImage;

  Panel1: TPanel;

  Button1: TButton;

  Button2: TButton;

  Button3: TButton;

  procedure Button1Click(Sender: TObject);

  procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

   Y: Integer);

  procedure Button2Click(Sender: TObject);

  procedure Button3Click(Sender: TObject);

  procedure FormShow(Sender: TObject);

  private

  { Private declarations }

  public

  { Public declarations }

  end;

  var

   Form1: TForm1;

   flag:boolean=false;

   {对开启/关闭自动隐藏选单进行标志}

  implementation

  {$R *.DFM}

  procedure TForm1.FormShow(Sender: TObject);

  begin

   image1.Picture.LoadFromFile(′c:\pwin98\安装程序.bmp′);

   {在Image控件中装载图片}

  end;

  procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

   Y: Integer);

  begin

   if flag then

   if y〉307 then panel1.Visible:=true

  {这里的307就是先前Panel中Top属性的值}

    else panel1.Visible:=false;

  end;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

   flag:=true;   {开启自动隐藏选单}

   button1.Enabled:=false;

   button2.Enabled:=true;

  end;

  procedure TForm1.Button2Click(Sender: TObject);

  begin

   flag:=false;{关闭自动隐藏选单}

   button1.Enabled:=true;

   button2.Enabled:=false;

  end;

  procedure TForm1.Button3Click(Sender: TObject);

  begin

   close;{关闭程序}

  end;

  end.

   运行程序,看一下该功能的表现。

  单击“开启自动隐藏”按钮,则窗口下部的控制选单被隐藏。移动鼠标,当鼠标接近窗口的底部时,控制选单出现,鼠标移出某个范围后选单又自动消失。效果如图所示:

217590__b1101t01.jpg

  单击“关闭自动隐藏”按钮,程序又恢复初始状态,鼠标的移动对选单没有任何影响。

  该程序主要是对Image1MouseMove过程中鼠标x值的判断,实现选单的隐藏。同样的,如果应用程序的控制选单位于窗口的左边或右边时,对该过程的y值进行判断也能达到同样的功能。

  以上是我对Delphi编程的一点经验,希望对大家有用。上述代码在Delphi 4.0+Win 98中运行通过。

  摘自《赛迪网》 /文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集




  • 网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网