2007年12月29日
论坛网友聚会
摘要： 阅读全文
posted @ 2007-12-29 08:01 已經停更 阅读(109) 评论(0) 推荐(0) 编辑
背影
摘要： 阅读全文
posted @ 2007-12-29 07:48 已經停更 阅读(97) 评论(0) 推荐(0) 编辑
小外甥女
摘要： 阅读全文
posted @ 2007-12-29 07:44 已經停更 阅读(131) 评论(0) 推荐(0) 编辑
我的办公桌
摘要： 阅读全文
posted @ 2007-12-29 07:41 已經停更 阅读(126) 评论(0) 推荐(0) 编辑
delphi點擊窗體最小化,關閉按鈕時的托盤圖標設置
摘要： 判斷窗體是否按下最小化等按鈕時,可以截取鼠標按下按鈕時的消息.下面有2種方法可以做到.轉自Delphi共和國-->: 方法一：截获 WM_SYSCOMMAND消息，看窗体是否处于最小化状态typeTForm1 = class(TForm)privateprocedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;//...... 阅读全文
posted @ 2007-12-29 01:26 已經停更 阅读(1160) 评论(0) 推荐(0) 编辑
delphi制作程序啟動歡迎窗體
摘要： 這是我以前做畢業設計時學到的知識,相信現在也有不少初學者在尋找這方面的信息,現在在這里做簡單記錄,供大家參考: 制作程序啟動窗體: 假設你的登陸窗體命名為:loginform. 找到工程文件(Project -> View Source),找到如下代碼部分: begin Application.Initialize; Application.CreateForm(TForm1, F... 阅读全文
posted @ 2007-12-29 01:23 已經停更 阅读(671) 评论(0) 推荐(0) 编辑
Delphi模拟QQ窗体伸缩功能
摘要： 不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件。 但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、TMemo等等类... 阅读全文
posted @ 2007-12-29 01:22 已經停更 阅读(346) 评论(0) 推荐(0) 编辑
delphi中的窗体事件详解
摘要： Delphi窗体的事件共有40个，常用的分为5大类 建立窗体时引发的事件：共有4个 OnCreate事件：窗体创建时产生此事件， OnShow事件： 窗体显示前产生此事件 OnPaint事件： 重画窗体、窗体大小改变、窗体上的其他窗体移去时产生此事件 OnActivate事件：窗体激活时（窗体获得焦点时）产生此事件 关闭窗体时引发的事件：共有4个 OnClose事... 阅读全文
posted @ 2007-12-29 01:17 已經停更 阅读(784) 评论(0) 推荐(0) 编辑