程序员经验分享-hwhale

为应用程序启用主题

2024-05-08

我有一个旧的应用程序（在Win XP中的delphi 7中启动），现在我正在使用delphi 2009（win Vista）。如果我开始一个新项目，所有按钮都有一个圆形边缘，但在我的旧应用程序中，所有按钮都有“方形”形状的外观。

有什么设置我错过了吗？ 谢谢


在 D2009 的“项目选项”下，有一个“启用运行时主题”选项，默认情况下，新项目会勾选该选项，但现有项目则未勾选该选项。

勾选此选项会将清单文件添加到 EXE 的资源中，这使得它可以使用 Windows Xp/Vista 主题，从而为您提供圆形按钮。

http://www.stevetrefethen.com/blog/ThemingWindowsApplicationsInDelphi2007.aspx http://www.stevetrefethen.com/blog/ThemingWindowsApplicationsInDelphi2007.aspx

http://www.stevetrefethen.com/blog/Delphi2007VCLDesignerThemeSupport.aspx http://www.stevetrefethen.com/blog/Delphi2007VCLDesignerThemeSupport.aspx

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

Delphi

为应用程序启用主题 的相关文章

  • 防止多个实例 - 但还要处理命令行参数？

    我正在从我的应用程序处理与 Windows 相关的扩展文件 因此 当您在 Windows 中双击文件时 它将执行我的程序 然后我从那里处理该文件 如下所示 procedure TMainForm FormCreate Sender TObj

  • 如何在iOS的Delphi程序中使用IPv6协议

    我尝试在我的移动程序中使用 IPv6 协议 我的服务器位于 NAT 后面的 LAN 内 在服务器上我使用IP端口3000 我已经组织了从路由器端口 45500 到服务器端口 3000 的虚拟服务器 端口转发 在服务器上 我运行 ipconf

  • logback的“谨慎模式”是如何实现的？

    The 审慎模式 http logback qos ch manual appenders html prudentlogback 中的序列化所有 JVM 之间的 IO 操作 写入同一文件 可能运行在不同的主机上 在其他日志记录框架中 如果

  • Delphi - 如果没有创建类，为什么这个函数可以工作？

    考虑这个类 unit Unit2 interface type TTeste class private texto string public function soma a b integer string end implementa

  • CharInSet 不适用于非英文字母？

    我已经将应用程序从 Delphi 2007 更新到 Delphi 2010 一切都很顺利 除了一条编译正常但不起作用的语句 If Edit1 Text 1 in S then ShowMessage Found else ShowMessa

  • Delphi 中表单分发与其生命周期相关的接口对象的安全方法？

    我有一个 Delphi 表单 它提供接口对象背后的功能 代码的其他部分也通过属于该表单的属性获取引用 我无法将接口功能委托给子对象 因为太多的功能是由表单上的控件 组件提供的 我无法使用 TAggregateObject 或 TContai

  • Delphi 7 - 处理表单中嵌入框架的 MouseWheel 事件？

    你好 我有一个表格 里面有几个框架 对于某些框架 我希望滚动内容 或至少处理鼠标滚轮事件 我已经尝试过以下方法 只需为每个帧分配一个 OnMouseWheel 事件处理程序 重写父窗体的 MouseWheel 事件 procedure TF

  • 为什么 TImage 旋转我的图像？

    编写一个移动应用程序 它从安全网站提取图像 如下所示 第一个图像 提取不正确 注意网络版本与移动版本 第二个图像在网站上正确显示 但 Delphi TImage 由于某种原因正在旋转它我不明白为什么 旋转设置为 0 并且在 TImage 组

  • 使用 Delphi 10.2.1 Tokyo 的模态 Android 对话框

    我有以下用于在 Android 上显示模式消息的 Delphi 代码 该代码在 10 1 Berlin 上运行良好 但在 Delphi 10 2 1 Tokyo 上停止运行 此过程现在会挂起 Android 应用程序 procedure c

  • Delphi 2005 Web 服务问题

    我在尝试通过 Delphi 访问 Web 服务时遇到问题 我使用了 2007 版 WSDLimp 工具的 java WSDL 看起来它已正确创建了所有对象 然而 当我制作一个调用该服务的测试程序时 每个对象都是空的 如果我在 HTTPRIO

  • 德尔福和Doxygen

    我想使用 doxygen pas2dox 记录我的源代码 当我设置好所有内容 包括过滤器和提取选项 提取所有内容 时 doxygen 运行良好 但生成的文档仅包含源文件作为链接 并且没有提取类型 方法 过滤后的源看起来不错 有任何提示如何定

  • 通过“修改日期”确定文件夹中的哪个文件是最新的？

    我需要扫描特定文件夹中的最新文件 基本上检查修改日期以查看哪个是最新的 但请记住这些文件具有随机名称 这是我到目前为止得到的 procedure TForm1 Button1Click Sender TObject begin ftp Ho

  • 从 Delphi 访问 TRAKT API - 承载身份验证问题

    使用 TOauth2Authenticator TRESTClient TRESTRequest TRESTResponseDataSet TRESTResponse TFDmemtable 和 TDataSource 我成功连接到 Tra

  • 如何检查文件是否有备用数据流？

    Delphi 有没有办法检查文件是否有任何备用数据流 看一下 Win32 APIFindFirstStreamW https msdn microsoft com en us library windows desktop aa364424

  • 什么是代码页 0？

    我正在使用Delphi函数 StringCodePage 我在 COM 函数 Acrobat Annotation getContents 请参阅我的其他帖子 返回的字符串上调用它 它返回 0 0是什么 安西 代码页 0 是 CP ACP

  • 在 XMLDocument 中使用 DocumentElement 时发生访问冲突

    当我尝试使用时 我总是遇到访问冲突DocumentElement of the XMLDocument 我创造XMLDocument基于某些文件的存在 错误信息 项目project1 exe引发异常类EAccessViolation 消息

  • “已发布集 '%s' 的大小大于 4 字节”。如何修复这个编译器错误？

    我有一组包含 138 个值的枚举值 就像是 type TSomething sOne sTwo sThree sOnehundredAndThirtyeight TSomethings set of TSomething TSomethin

  • 使用 (Object as TClass) 和 TClass(Object) 进行强制转换有什么区别

    有问题在哪里MyObj classnameis TMyClass classname 是真的并且TMyClass MyObj 有效但是 MyObj as TMyclass doSomething抛出转换错误 我真的不需要任何关于这些垃圾的帮

  • 使用 IdTCPClient 和 IdTCPServer 发送和接收 TMemoryStream

    我在 XE2 中找到了 Remy Lebeau 的 IdTCP 组件聊天演示 我想玩一下 可以发现 我想使用这些组件发送图片 最好的方法似乎是使用 TMemoryStream 如果我发送字符串 连接工作正常 字符串传输成功 但是当我将其更改

  • delphi专家中的第三方依赖

    我正在编写一个delphi ide Expert 带有一些第三方依赖项 视觉控件 我的问题是当这个专家将安装在目标机器上时 这台电脑是否也需要安装这些第三方组件 或者组件是embeded在生成的 bpl 内部 它们将依赖于您放置在包的 re

随机推荐

  • UIPageControl 未显示

    我使用以下内容来显示滚动视图和页面控制 scrollView UIScrollView alloc initWithFrame CGRectMake 0 0 320 179 pageControl UIPageControl alloc i

  • 如何使用 __getattr__ 将方法委托给属性？

    我有以下课程 class MyInt def init self v if type v int raise ValueError value must be an int self v v def getattr self attr re

  • AngularJS 过滤器精确匹配

    我需要按类别过滤项目列表 我希望用户能够单击按钮 然后将过滤器应用于列表 目前 我已经在一定程度上做到了这一点 比方说 我有一个电影列表 呈现如下 li movie title li 我还有一个电影类型列表 呈现为按钮 单击时将过滤电影列表

  • 如何在 Ruby On Rails 7 中使用导入映射访问 JS 函数？

    我是 JS 模块和导入映射的新手 现在我正在使用 Ruby on Rails 7 但我找不到一种方法来让它工作 Js模块 proposals js function openProposalMirror 应用程序 js import as

  • 如何用NULL替换空格

    我在 sql server 2012 中有一个包含空格的列 我想用 NULL 替换这些空白 我已经编写了以下查询 但它不起作用 SELECT replace COLUMN1 NULL FROM Orders 如何实现上述功能 提前致谢 Us

  • RxAndroid - 单击时重试可观察

    我在 Android 应用程序中使用 rxAndroid 和 rxKotlin 来异步处理网络请求 现在我想仅在单击 Snackbar 按钮后重试失败的网络请求 我现在的代码 val citiesService ApiFactory cit

  • Scala 如何将 Map 转换为元组的可变参数？

    在 Scala Play 2 2 x 测试的背景下 我有一个Map String String 我需要将其传递给接受的函数 String String 即一个可变参数 String String tuple e g val data Map

  • 使用仅应用程序令牌时 Microsoft Graph API /search() 是否有效

    我正在尝试使用图形 API v1 0 来搜索我们团队的 sharepoint onedrive 文件夹中的文件和文件夹 但是当使用仅限应用程序的令牌时 我始终得不到任何结果 search 要求我试试 我已注册并申请https apps de

  • Vue.js - 在 V-For 中将多个 Props 传递给 Child

    我正在尝试创建一个具有可折叠列的表格 但无法使表主体与标题一起折叠 这是一个小提琴 它清楚地表明了我想要做什么 https jsfiddle net ufw4f5qc 9 https jsfiddle net ufw4f5qc 9 这是我尝

  • Android 两次请求 USB 许可

    我有一个运行 Android 4 0 4 的开发板 并将其用作 USB 配件 当我关闭板上的应用程序然后通过 USB 插入 Android 手机时 板会提示 连接此 USB 设备时打开 AppName 当我触摸 确定 时 应用程序启动并再次

  • Google Places Api 排名=距离不起作用[重复]

    这个问题在这里已经有答案了 我使用 Google Places api 只获取距我所在位置最近的一些地点 但有些结果根本不显示 例如 tbilisimarriot 和 CourtyardbyMarriot 结果 而且列表也无法正确显示从最近

  • 在 C++11 中使用 max 作为谓词会中断

    在 C 03 中 以下代码工作正常 int main std vector

  • Angular 2.0 是否有类似于 Angular 1 中的 `$setPristine` 函数？

    提交表格后 pristine输入的状态仍然是 假 我不知道如何重置pristine陈述为真 在 Angular 1 中 我会使用 setPristine功能 我查看了 API 和开发人员指南 没有 API 可以将输入重置为原始状态 Inst

  • 编译器创建的匿名类型：可破坏的行为

    我有一些客户端 HTTP RESTfull 代码 这取决于 net 编译器生成的匿名类型提供的舒适度 匿名类型 example0 string prop 1 strValue1 int prop 2 5 new prop1 prop 1 p

  • 如何从 wfstream 读取二进制数据？

    我从文件读取数据时遇到一个小问题 我希望能够读取 wstring 以及任意大小的原始数据块 大小以字节为单位 std wfstream stream file c str std wstring comType stream gt gt c

  • 使用 Spongy Castle 库生成 ECDH 中的密钥对

    我是台湾的学生 我正在学习如何在 Android 中编程 但我在使用 Spongy Castle 库在 ECDH 中生成密钥对时遇到问题 当我启动应用程序时 Android系统显示应用程序已停止 这是我的代码和我的导入 public cla

  • Mongoose 使用 GeoJSON 点作为查询参数调用 geoNear 不起作用

    给定一个为包含 GeoJSON 位置的文档定义的模式 var BranchSchema new Schema location type type String required true enum Point LineString Pol

  • Laravel 5 中的注册服务在哪里？

    我在用户表中添加了几个字段 在我读到的所有地方都说我还需要更新中的新字段app Services Registrar php文件 但我找不到Services文件夹在任何地方 这是 Laravel 5 中的新安装 这是我的目录结构的屏幕截图

  • 加载器如何引用共享库中的变量？

    我现在了解如何通过过程链接表引用动态函数 如下所示 Dump of assembler code for function foo plt 0x0000000000400528

  • 为应用程序启用主题

    我有一个旧的应用程序 在Win XP中的delphi 7中启动 现在我正在使用delphi 2009 win Vista 如果我开始一个新项目 所有按钮都有一个圆形边缘 但在我的旧应用程序中 所有按钮都有 方形 形状的外观 有什么设置我错过

热门标签