程序员经验分享-hwhale

Delphi - 捕获具有当前焦点的窗口/窗体

2024-04-05

我有一个包含大量 MDI 子项（以及非 MDI 表单）的 MDI 应用程序，并且希望跟踪当前激活的表单并始终具有焦点。当用户在应用程序中从一种窗体切换到另一种窗体时，我想捕获窗口激活消息，并在后台将全局变量设置为活动窗体的属性（该属性是从基类继承的）。我最初将代码放在基类的 OnActivate 事件处理程序中（我的应用程序中的所有表单都使用该处理程序），但注意到该事件并不总是引发。有任何想法吗？

我正在使用 Delphi 2006 BDS。


ActiveMDIChild 属性是您正在寻找的吗？

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

Delphi

vcl

tform

Delphi - 捕获具有当前焦点的窗口/窗体 的相关文章

  • 如何处理第三方库中的警告/提示？

    我们使用 FastReport 来生成报告 事实上 我们为访问源代码付费 我们目前使用的是FastReport的最新稳定版本 虽然它对于我们的生产来说足够稳定 但每当我编译时 我都会看到以下内容 dcc32 Hint fs iinirtti

  • TRichEdit和URL高亮问题

    我正在使用当前代码在 TRichEdit 上突出显示 URL procedure TForm1 WndProc var Message TMessage var p TENLink strURL string begin if Messag

  • 如何在显示表单之前强制将焦点集中在组件上

    我必须展示 与ShowModal 一个有很多的表格TEdit但我想把注意力集中在TEdit 但并不总是相同 具体取决于上下文 我不能使用SetFocus之前ShowModal 因为表单未激活 并使用该组件Name or Tag在我的应用程序

  • 以高效的方式将字符串转换为十六进制

    我开发了以下函数将字符串转换为十六进制值 function StrToHex const S String String const HexDigits array 0 15 of Char 0123456789ABCDEF var I I

  • Delphi RTTI，已发布的属性出现两次

    我想对属性使用属性 但这些属性偶尔会在继承的类中发生更改 这是一个示例代码 非常简化 TBaseClass class TObject private FFoo string published BaseAttirib hello prop

  • 在 Inno Setup 中使用 StringToColor

    我想为表单上的标签 TNewStaticText 属性颜色 TColor 读写 分配一些颜色 我将颜色存储为 RRGGBB 字符串 我想使用 Delphi 函数 StringToColor 将其转换为 TColor 但如果我在脚本中使用此函

  • delphi定时器比定时器服务中断例程更快

    大家好 我被要求为某人维护一个基于 Delphi 5 的程序 该程序使用一个计时器对象每 50 毫秒计时一次 并且在每次计时结束时运行单线程代码块 我只是想知道 如果执行这段代码所花费的时间比计时器滴答间隔长 会发生什么 这会很糟糕吗 例如

  • 如何更改 Chromium 组件的默认背景颜色？

    I use TChromium http code google com p delphichromiumembedded 我分配AWebPageAsString这是一个带有灰色背景颜色的静态 HTML 页面 FBrowser TChrom

  • 递归遍历树视图中的节点？

    我有一个树视图 其中已经填充了另一个过程中的文件 文件夹 我想按照从上到下的确切顺序逐项迭代树视图中的项目 但是 与普通列表不同 我不能仅使用简单的for对此的声明 我必须进入每个节点等 我该怎么做呢 我希望有一种方法可以在不运行递归过程的

  • 如何添加资源并使用它们

    在我的应用程序中 我想添加 2 个图像作为资源 我想使用这些图像 当我在应用程序中单击 是 按钮时 第一张图像将被设置为壁纸 当我在应用程序中单击 否 按钮时 第二张图像将被设置为桌面壁纸 提前致谢 regards 最简单的方法是创建一个文

  • 如何以编程方式安排任务

    如何使用 delphi 7 像 Google updater 一样安排任务 我没有使用注册表 因为它被卡巴斯基防病毒软件检测为误报 我在注册表中作为启动项添加的任何内容都会被检测为特洛伊木马 因此我决定使用任务计划 下面的代码展示了如何删除

  • VCL.位图到 FMX.位图

    我在网上找到了这段代码 但 FMX Bitmap 没有扫描线 是否可以以某种方式将 VCL TBitmap 复制或绘制到 FMX Bitmap IFDEF MSWINDOWS type TBitmap FMX Types TBitmap T

  • 获取 TransactSql 批处理中的语句数计数

    对于不使用 Delphi 的读者 虽然以下内容是根据 Delphi 编码来表达的 但我的实际技术问题不是特定于 Delphi 的 而是关于如何找出 Sql Server 如何 理解 TransactSql 批处理提交给它 TAdoQuery

  • Indy 的 TIdHTTPProxyServer：如何过滤请求？

    我正在使用 TIdHTTPProxyServer 来实现一个简单的 HTTP 代理 但我现在想阻止一些与某些 URL 匹配的连接 哪个事件和 或组件最适合实现这一目标 Indy 文档并没有太多解释 Thanks 作为基本过滤器 您可以使用

  • 使用Delphi检查HTML代码中是否有对象属性值

    如何使用Delphi检查HTML代码中是否有输入对象属性值 there isn t value attribute

  • Delphi - 在修复 VCL 错误时，单元 x 是用不同版本的 x 编译的

    我正在使用 Delphi XE6 并在我的项目中使用 Datasnap 和 JSON 我想纠正 VCL 单元 System JSON pas 在 TJSONString ToString 函数中 中的一个错误 它应该转义反斜杠字符和引号 为

  • 处理 TShellListView 后代中的文件放置

    我正在尝试创建 TShellListView 的后代 它接受从 Windows 资源管理器中删除的文件 我想在组件定义中处理拖 放操作 而不必在任何使用该组件的应用程序中实现它 我找到了接受从 Windows 资源管理器中拖放的文件的示例

  • 如何在 Delphi DBLookupComboBox 中选择正确的项目

    我有一个数据库查找组合框连接到数据库查询 那部分工作正常 当我运行程序时数据库查找组合框填充有查询的结果 我想看看数据库查找组合框填充第一项 请选择 当 的时候程序第一次运行或者当一个新项目行动已启动 见下图 另外 如果我正在加载以前保存的

  • Delphi 2009 IDE结构视图折叠功能

    现在有谁知道折叠 Delphi 2009 IDE 结构视图中的所有项目吗 我不知道折叠所有项目 这使我很难从视图中找到我的课程 Thanks 选择根节点 类 并按数字键盘上的 除号 那会让一切崩溃 然后按数字键盘上的 加号 键 第一级将展开

  • 石和磅的格式正确吗？

    我有一个图表 用于显示重量 以英石和磅 lbs 为单位 该图表由记录中的数据填充 对于权重 数据类型为 Double 记录数据是在运行时编辑的 我需要知道一种正确格式化输入数据的方法 为了更好地理解 首先看一下这些示例值 它们表示为石和磅

随机推荐

  • 如何使用 Jquery 创建 .txt 文件？

    好的 这是我的域 example com index html 我想在该域中创建一个 txt 文件 结果 example com file txt 包含以下信息 js saveButton on click function e e pre

  • Python-Sphinx：从超类“继承”方法文档

    Edit 截至目前 Sphinx 1 4 9 似乎没有办法告诉 Sphinx 做我想做的事情 参见issue https github com sphinx doc sphinx issues 3140在 GitHub 上 这接受的答案 h

  • .NET GUI 中仍然使用本机 Windows 控件吗？

    当您使用 WinForms 或 WPF 创建 GUI 时显示的内容仍然基于本机控件 例如通用控制 http msdn microsoft com en us library windows desktop bb773169 28v vs 8

  • Android 接收器可以进行多种操作？

    简单的问题 我可以注册一个吗BroadcastReceiver多个 Intent 操作 这是我正在考虑的

  • linkedin 上的 Open Graph 图片问题

    我的项目现在遇到有关 linkedin 共享的问题 图像 缩略图 未显示 我的问题是 网址更改也会影响吗 例如 我添加了这样的 og 标签 https domain name com wp content uploads 2016 10 2

  • 如何更改 Angular 中 mat-dialog 的 Z 索引

    我的应用程序使用多个 mat dialogs 有时可能会同时显示 2 个 这会导致问题 因为第二个永远不会正确显示 而且它的模式使应用程序变得无用 经过更多研究后 我似乎可以通过调整 mat dialog 的 z index cdk ove

  • 如何获取通过SpriteKit编辑器创建的项目的SKSpriteNode？

    我使用 SpriteKit 使用 Objective C 在 XCode 中创建了一个相当简单的 此时是实验性的 游戏 我知道如何手动创建 SKSpriteNode 对象并将其添加到 SKScene 但我有点尝试做相反的事情 我在 XCod

  • Spark.ml 回归计算的模型与 scikit-learn 不同

    我在 scikit learn 和 Spark ml 中设置一个非常简单的逻辑回归问题 结果有所不同 他们学习的模型不同 但我不明白为什么 数据相同 模型类型是相同 正则化相同 毫无疑问 我错过了一侧或另一侧的一些设置 哪个设置 我应该如何

  • Visual Studio C# - 未找到 SQLite.Interop.dll

    我目前正在尝试使用 Visual Studio 创建一个与 SQLite 一起使用的 C 应用程序 我使用 NuGet 为我的程序安装了 SQLite 解决方案资源管理器中出现了三个引用 System Data SQLite System

  • 刷新 Ajax 成功的数据表

    我正在使用数据表和 jquery 对话框 总的来说 我有 3 个表格和 3 个数据表 我的脚本运行良好 但我遇到的问题是在 ajax 保存成功时更新正确的数据表 它甚至不必是正确的对应表 它可以更新 3 个表单保存中任何一个的所有 3 个表

  • 仅当值既不为 null 也不未定义时才调用函数

    单击按钮时 我检查本地存储键中是否存在某些内容 如下所示 var a localStorage getItem foo if typeof a undefined Function 但如果该键根本不存在 则返回 null 我怎样才能打电话如

  • 为什么“Dispose”有效，而不是“using(var db = new DataContext())”？

    我正在创建一个由主题组成的论坛 主题由消息组成 当我尝试在我的控制器中实现主题视图时 public ActionResult Topic int id Topic Id using var db new DataContext var to

  • Flutter可拖动容器：从上到下扩展

    I want to achieve the following example 如您所见 用户必须能够从上到下拖动 开始时 只能看到图像 但是一旦用户从上到下拖动元素 它将显示更多内容 在扩展橙色容器时 它应该高于所有其他绿色元素 我调查过

  • 如何使用 C#、.NET 将文本写入 Word 文件

    我正在尝试使用 C 编写一些文本并将其附加到 Word 文件中 但是 我无法获得预期结果 你能帮我解决这个问题吗 下面是我的代码 using System using System Collections Generic using Sys

  • 自定义部分名称导致 NSFetchedResultsController 崩溃

    我有一个带有 dueDate 属性的托管对象 我没有使用一些丑陋的日期字符串作为 UITableView 的节标题进行显示 而是创建了一个名为 category 的瞬态属性 并将其定义如下 NSString category self wi

  • Scala Dataframe 列的 null 检查

    val new df df filter type interne type interne null 给我错误值 不是字符串的成员 当我使用 适用于过滤器 val new df df filter type interne type in

  • 命名空间中不存在来自 WPFToolkit 的控件

    我添加到引用 WPFToolkit dll 并添加了以下行的 xaml 文件 xmlns toolkit clr namespace Microsoft Windows Controls assembly WpfToolkit 并在以下行之

  • 使用 SendMessage API 检索 ComboBox 计数和项目

    我想得到一个计数和列表ComboBox控制权不属于我 因此我无法修改代码 例如 可以通过使用来控制目标应用程序SendMessage API 但是 如何通过挂钩检索目标控件的整个列表 您可以找到以下列表ComboBox控制消息在这里 MSD

  • PdfKit 高亮注释

    我正在尝试在 iOS 上使用 PDFKit 向文档添加突出显示注释 let highlight PDFAnnotation bounds selection bounds for page forType PDFAnnotationSubt

  • Delphi - 捕获具有当前焦点的窗口/窗体

    我有一个包含大量 MDI 子项 以及非 MDI 表单 的 MDI 应用程序 并且希望跟踪当前激活的表单并始终具有焦点 当用户在应用程序中从一种窗体切换到另一种窗体时 我想捕获窗口激活消息 并在后台将全局变量设置为活动窗体的属性 该属性是从基

热门标签