专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
Showmodal 是个函数, Show 是个过程 1. Showmodal: 概念 : 当你调用一个窗口用 SHOWMODAL 时 , 当这个窗口显示出来后 , 程序不会继续自己执行 , 而是根据你对这个窗口的操作来执行 , 只有关闭了这个窗口后才会执行。 属性 : FormStyle 改为 fsNormal , visible 改为 false [阅读全文] [PDF]
  现在许多窗体都有自动隐藏/显示功能(比如OICQ) 实现这样功能其实很简单原理是:判断鼠标是否移到了屏幕最左边或最右边如果移到了则显示窗体如果鼠标移开了窗体则隐藏窗体在本中我们将用到GetCursorPos这个API是实现这个功能最重要步这个作用就是获取当前鼠标坐标值我们可以通过这个值来判断鼠标是否移到了屏幕最边缘.下面我们就开始吧   新建窗体将Form1更名为AutoHide将vbBorderStyle属性设置为4-Fixed ToolWindow这样就不能改变窗体大小ScaleMode属性设置为2-Po加入个TimerControl控件 [阅读全文] [PDF]
腾讯QQ是当前流行的网络聊天工具之一,由于它在应用设计上有很多独特之处,所以也吸引了很多程序员对之进行研究和模仿。在这里,我将利用Delphi对QQ的窗体自动隐藏效果提出自己的实现方法。 一、问题的提出熟悉QQ使用的朋友都知道,当QQ窗体区域超出屏幕四边时,窗体就会自动“消失”,只留下窗体一边的小部分显露在桌面上。当用鼠标移动到显露部分之上,窗体就会在隐藏位置重新完整显示;但当鼠标离开窗体区域后,窗体便会重新进入隐藏状态。   对隐藏的全过程进行分析,可以得出两点推测:第一,窗体隐藏的处理是与窗体移动过程有关;第二,窗体隐藏的触发条件是窗体的区域已经移 [阅读全文] [PDF]
四、进一步完善  上面的代码已经基本实现了窗体的自动隐藏效果,但是我在介绍代码的时候有两个问题是被提出但没有被解答的。   首先是为什么触发隐藏时Fanchors中将至少有一个值而不多于两个值呢?注意代码中对Fanchors的赋值是通过四个判断进行的,那么如果触发隐藏的话,Fanchors中将毫无疑问会有一个值存在,但这种情况是针对隐藏发生在屏幕的四边而言。当窗体被推入到屏幕的四角时,那么Fanchors中便将会有两个值存在。那此时窗体会隐藏到什么地方呢?   实际的效果告诉我们,窗体会被隐藏到屏幕的四角上。此时若我们试图让窗体重新显示,你便会发现窗体 [阅读全文] [PDF]
三、初步的实现  首先我们定义一个过程对WM_MOVING消息进行拦截处理,代码如下: ……privateFAnchors: TAnchors;procedure WMMOVING(var Msg: TMessage); message WM_MOVING;……uses Math,type;procedure TForm1.WMMOVING(var Msg: TMessage); begininherited;with PRect(Msg.LParam)^ dobegin Left := Min(Max(0, Left), Screen.Width - [阅读全文] [PDF]
=post>Delphi 下用Windows API 创建窗体//Delphi下WindowsAPI创建窗体.// //模板-------BYHottey2004-4-13-0:18// // 作者网站WebSite:http://asp.itdrp.com/hottey // programdelphi; uses windows, messages; const hellostr=\'HelloWorld!\'; {$Rde [阅读全文] [PDF]
以下将教你如何制作个窗体,窗体旦运行将在屏幕上不断抖动. 定义两个变量: var BackLeft,BackTop,I:eger; //保存窗体left BackLeft := Left; //保存窗体top BackTop := Top; //其中number可由你设置个灵活数字,当然值由你定 for I:=1 to Number do begin //水平抖动 Left:= (BackLeft-1 [阅读全文] [PDF]
启动Desktop有两种思路方法: (1)从Windows中启动 从Windows操作系统界面中依次点击菜单项“开始ll Borland DelPhi6 I Database Desk.Top”就可启动DeskTop (2)从Delphi中启动 从Delphi主菜单中单击“Tools I Database Desktop”也可启动DeskTop 2.主窗体组成 Desktop窗体由标题栏、主菜单、工具栏、窗体 [阅读全文] [PDF]
半透明窗体并不是Win2000新特效凡是用过金山词霸同志都会发现在屏幕取词设置中有个半透明背景选项这介绍说明在Win98下是可以实现半透明窗口但我还是要首先谈谈在Win2000实现半透明窗体新SetLayeredWindowAttributes利用这个就可以轻松创建个半透明窗体但是利用这个编译后在Win98下是无法运行 SetLayeredWindowAttributes API介绍如下: 功能:设置窗口透明颜色 参数:SetLayeredWindowAttr [阅读全文] [PDF]
窗体在设计阶段可用来放置各种组件在运行阶段是和用户交互界面窗体中所有信息保存在两个同名(扩展名区别)文件中当创建个窗体时Delphi将同时创建2文件:个是窗体文件.dfm;另个是单元文件.pas 在窗体设计器上单击鼠标右键在弹出菜单中选择View as’I\'ext命令当打开文件后会看到窗体文件文本形式编辑窗体文件是修改组件类型思路方法的个新窗体窗体文件 内容如下: object Forml:’FForml Left=1 92 [阅读全文] [PDF]
1.窗体类型 属性FormStyle可以定义不同的应用窗体类型,取值如下:fsNormal普通类型的SDI窗体或对话框。fsMDIChildMDI应用程序中的子窗体。 ·fSMDIFormMDI应用程序中的父窗体。 ·fsStayOnTopSDI窗体,在桌面最前端显示的窗体,不被其他窗体覆盖。 2.主窗体与子窗体 建立MDI应用程序,至少需要2个窗体:MDI主窗体与MDI子窗体。主窗体的FormStyle属性为fSMDIForm,子窗体的Form.Style属性为fsMDIChild。 每个应用程序只能有一个MDI主窗体,用于控制子窗体的激活、排列和关闭等 [阅读全文] [PDF]
1 共12条 分1页