我觉得这个窗体的样子很不错，窗体支持右键菜单，还可以设置窗口置顶和更换PNG图片，原来使用GDI+技术，用PNG就能实现这么漂亮、个性的半透明窗体，也让我对Delphi产生了信心，作者和时间：2008 赵述杰。
运行环境：Windows/Delphi7
2022-11-07 09:20:16
311KB
1
program OnlyOne;
uses
Forms,
Windows,
Dialogs,
UnitMain in 'UnitMain.pas' {Form1};
resourcestring
FMutex = 'MUTEX_ONLY_ONE'; //互斥对象名
{$R *.res}
var
hMutex:HWND;
iRet:Integer;
begin
2022-11-06 19:53:24
193KB
1
支持win和linux平台，32位64位通用
2022-11-05 22:23:34
3.02MB
1
Delphi MouseHook鼠标钩子，全局映像文件, 如果没有TMappingMem, hook就只对本进程起作用，子类TMouseHook, 只提供事件接口实现，关键所在, 通过AllocateHWnd创建一个不可见的窗体, 来实现所有消息的中转，通过TMouseHookBase的WndProc来实现对消息的响应，最终并附有测试项目的源码。
2022-11-05 22:03:10
58KB
1
Delphi为Form增加一个边框，这个边框是镶嵌在窗体固有边框的外侧，可自定义任意一种颜色，比如你可在此基础上实现窗体边框闪烁、多彩窗体等效果。看看了实例的代码，貌似很容易就可实现，最终效果如演示截图所示。
2022-11-05 10:39:30
2KB
1