Delphi 7 下自动实现 xp 风格的简单办法

AI权益加码!Claude Code、Cursor等20+工具免费用! 购周边限时加赠Coding Plan Lite,畅享主流AI工具!学习进阶更高效! 阅读详情

以 Delphi 开发的程序运行在 xp 下时无法自动应用 xp 皮肤风格, 
在网上查资料要达到程序自动适应 xp 风格效果很难, 而且大多都是使用一堆外部控件才能达到这样的效果.
今天突然发现,  只要在窗体上放一个 TXPManifest (Win32 标签下) 控件,  根本不用再设置其它属生, 程序立刻就可以自动适应 XP 风格了.
这样以前的程序不需任何大的改进即可实现 XP 风格.
不过这种方式 ,不能将菜单的样式也变过来,  但是通过使用 TActionManager 和  TActionMainMenuBar 控件的配合也能达到 XP 的效果.

delphi7实现XP效果的方式 delphi7实现XP效果的方式,简单省心的大致有以下三种:(当然用第三方控件除外) 1、就是将WIN32下的XPMainFest放入界面中,即会产生XP效果代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XP 阅读详情

相关推荐

Delphi 完全时尚手册之 Visual Style 篇---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格

Delphi 完全时尚手册之 Visual Style 篇---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格    这里先说说两个概念:Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中,是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、

Happyjoe的专栏 1888

Delphi7控件包详解

DELPHI7安装目录中,BIN文件夹里面的所有.bpl文件对应的控件列举

Delphi 程序中实现程序自带系统XP主题风格,UAC管理员权限,WIN10支持manifest文件内容

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <!--添加UAC管理员权限--> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> <security> <requestedPrivileges> <requestedExecutionLevel level="..

wh445306 979

Delphi界面美化控件

Delphi美化控件, The entire contents of this file is protected by International Copyright Laws. Unauthorized reproduction, reverse-engineering, and distribution of all or any portion of the code contained in this file is strictly prohibited and may result in severe civil and criminal penalties and will be prosecuted to the maximum extent possible under the law.

VC无负担实现XP风格界面

关于让自己的程序界面实现XP风格这个问题,在网上的讨论很多,大多数的作法都是写一个.manifest文件,然后将文件名改一下,比如.exe文件为test.exe,就将这个.manifest文件改名成test.exe.manifest,并将其和test.exe放在同一个目录里,这样test.exe在XP或2003(必须启动Themes服务)下运行时就会呈现XP界面风格。有件事情必须说一下,按照上

AwingPig 698

如何用Delphi7编写WinXP界面的程序

前一段在网上看了不少介绍编写XML文件实现WinXP界面的方法,实际想在Delphi7实现WinXP界面很单间。只需要在 uses 中加入 XPMan 就行, 或者在 implementation 后面加上 {$R WindowsXP.res} 也可以实现

Hunto的专栏 1712

DelphiXE编译EXE无法在xp系统下运行

delphi xe 11 不在支持xp系统,需要进行以下设置,默认6.0改为5.0。

PRSoft的博客 654

Delphi 7实现XP风格(转)

====================================================== 注:本文源代码点此下载 ====================================================== delphi 7实现xp风格(转) 以 delphi 开发的程序运行在 xp 下时无法自动应用 xp 皮肤风格, 在网上查资料要达到程序自

javazhuanzai的专栏 402

DELPHI7实现XP菜单风格

步骤八:选择第一个TActionBarItem, 设它的ActionBar属性为ActionMainMenuBar,选第二个TActionBarItem,设它的ActionBar属性为ActionToolBar.步骤四:把Additional面板上的ActionToolBar组件加到PageScrooler组件上(注意放在PageScroolerh 上)步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.(注意一定要放在CooBar 组件上)

男神的专栏 696

Delphi界面美化之 - 简单DirectUI界面源码

界面相当的美观 仿类似360杀毒的DirectUI界面 ,有全部源码,大家下载来试试吧

XPButton 控件Delphi专用版 v2.0..rar

XPButton 控件Delphi专用版 v2.0..rar

delphi xp控件

xp控件 delphi 是你编写的delphi程序更加好看

Delphi7_DirectUI_简单界面源码

Delphi7 DirectUI 简单界面源码

Delphi实用代码自绘XP风格菜单

这是以前写的代码,自绘XP风格的菜单,硬盘坏了后以为没了,最后写的一个软件要自定义风格,“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。把主菜单作以下调整:   OnMeasureItem指向MeasureMainItem、   OnAdvancedDrawItem指向DrawMainItem,   子菜单的OnMeasureItem指向MeasureS

liukeforever的专栏 1019

Delphi 7下Edit控件的气泡提示

在Windows XP以及以上版本,基本控件Edit都有一个好看的气泡提示框,可惜Delphi 7还不支持这种效果,但是因为Edit是基本控件,只要在XP及以上版本,发送气泡显示消息,也就可以让其显示气泡提示。

无幻 7053

Delphi程序中使用XP主题风格

可以在Delphi7编写的程序中使用XP式的主题风格,为了实现在这一点,可以通过编写一个名称为 的文件,其内容为 version="1.0.0.0" processorArchitecture...

cnmzx123456的博客 262

delphi 7的知識點

第1章 Delphi 7概述1.1 Delphi简介1.2 Delphi的新特征1.2.1 编译器功能增强1.2.2 新增了两个网协议组件组Indy Intercepts和Indy I/O Handlers1.2.3 可定制化的View视窗1.2.4 可定制的代码完成功能1.2.5 更加强大的网开发功能1.2.6 跨平台开发库(CLX)1.2.7 新增了Rave报表制作工具1.2.8 数据库功

ahbbbc的专栏 1337

DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单.

今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:步骤一:把Win32面板上把CoolBar组件加到窗体上步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.(注意一定要放在CooBar 组件上)步骤三:把Win32面板上的PageScroller组件同样加

hk19830113的专栏 1446
上一篇: 长小豆豆的美女 - 理性看待Delphi2005
下一篇: 在Nutz框架中提供Pojo校验(验证)功能的支持
helloqiner
博客等级 码龄24年 8粉丝 6原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值