delphi - 有什么方法可以避免任务栏迷你窗口悬停时显示隐藏表单？-6ren

delphi - 有什么方法可以避免任务栏迷你窗口悬停时显示隐藏表单？

转载作者：行者123 更新时间：2023-12-03 15:14:27

26

4

这适用于具有子窗体的 Delphi 应用程序，该子窗体已显示然后隐藏但未释放。如果用户将鼠标悬停在应用程序的 (Windows 10) 任务栏“迷你 View ”上，则隐藏的表单将变得可见(在悬停期间)。当用户单击迷你 View 将焦点更改为应用程序。有什么办法可以避免这种情况吗？

重新创建:

创建新的 VCL Forms 应用程序。
向项目添加一个新表单并将其设置为自动创建。
添加一个按钮来显示然后隐藏表单(或使用 ShowModal 打开它)
运行应用程序
单击按钮显示第二个表单，然后将其关闭。
将鼠标悬停在应用程序任务栏按钮上可显示主窗口的迷你 View 。
将鼠标悬停在迷你 View 上，您会看到隐藏的窗口出现在主窗体上。

请注意，最小化应用程序并恢复它确实会“修复”影响，直到下次显示表单为止。也许这是导致该问题的原因的线索，或者是解决方法的线索？这不是一个大问题，因为它似乎不会造成任何实际问题，但它看起来确实不专业。

根据要求添加代码(但这不会很有趣。)

program Project1;
uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

// Only code that was added to TForm1:
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Show and then hide the form or use ShowModal and close it before testing the hover.
  Form2.Show;
  Form2.Hide;
  // Form2.ShowModal;
end;

<小时/>

更新:如何仅使用 Delphi IDE 显示问题。

运行 Delphi
打开任意代码文件并搜索字符串，然后使用 F3，直到出现“搜索未找到匹配项”、“从文件开头重新开始搜索”对话框
关闭第 2 步中的“未找到搜索匹配项”窗口。
将鼠标悬停在 Delphi 任务栏按钮上，然后将其移至迷你预览。
您应该看到“未找到搜索匹配”窗口出现在 Delphi 主窗口上。我已在柏林和东京 (10.2.1) 上验证了这一点

[2023 更新]此行为与 Windows 10 和 11 上的系统属性、高级、性能设置中名为“最小化和最大化时动画窗口”的选项直接相关。关闭该选项时，不会发生上述行为。

最佳答案

戴夫·奥尔森 (Dave Olson) 关于这是 Windows 版本特定的评论似乎是正确的。这个问题似乎在 Windows 10 的最新版本中完全消失了(即使与以前显示该问题的较旧编译版本的程序一起使用也是如此。)顺便说一句，我想知道无法重现该问题的人是否在Windows Insider 计划并有更新的版本。

关于delphi - 有什么方法可以避免任务栏迷你窗口悬停时显示隐藏表单？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/45523471/

26

4

0

文章推荐： delphi - 以可执行的免注册方式使用 COM 对象

文章推荐： delphi - 对于静态数组，使用 RTTI 获取记录字段类型失败

文章推荐： delphi - 为什么源文件创建时间戳会在保存时更新？

Ruby 方法() 方法
我想了解 Ruby 方法 methods() 是如何工作的。我尝试使用“ruby 方法”在 Google 上搜索，但这不是我需要的。我也看过 ruby-doc.org，但我没有找到这种方法。
VBS教程：方法-Test 方法
Test 方法对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。 object.Test(string) 参数 object 必选项。总是一个
VBS教程：方法-Replace 方法
Replace 方法替换在正则表达式查找中找到的文本。 object.Replace(string1, string2) 参数 object 必选项。总是一个 RegExp 对象的名称。
VBS教程：方法-Raise 方法
Raise 方法生成运行时错误 object.Raise(number, source, description, helpfile, helpcontext) 参数 object 应为
VBS教程：方法-Execute 方法
Execute 方法对指定的字符串执行正则表达式搜索。 object.Execute(string) 参数 object 必选项。总是一个 RegExp 对象的名称。 string
VBS教程：方法-Clear 方法
Clear 方法清除 Err 对象的所有属性设置。 object.Clear object 应为 Err 对象的名称。说明在错误处理后，使用 Clear 显式地清除 Err 对象。此
VBS教程：方法-CopyFile 方法
CopyFile 方法将一个或多个文件从某位置复制到另一位置。 object.CopyFile source, destination[, overwrite] 参数 object 必选
VBS教程：方法-Copy 方法
Copy 方法将指定的文件或文件夹从某位置复制到另一位置。 object.Copy destination[, overwrite] 参数 object 必选项。应为 File 或 F
VBS教程：方法-Close 方法
Close 方法关闭打开的 TextStream 文件。 object.Close object 应为 TextStream 对象的名称。说明下面例子举例说明如何使用 Close 方
VBS教程：方法-BuildPath 方法
BuildPath 方法向现有路径后添加名称。 object.BuildPath(path, name) 参数 object 必选项。应为 FileSystemObject 对象的名称
VBS教程：方法-GetFolder 方法
GetFolder 方法返回与指定的路径中某文件夹相应的 Folder 对象。 object.GetFolder(folderspec) 参数 object 必选项。应为 FileSy
VBS教程：方法-GetFileName 方法
GetFileName 方法返回指定路径（不是指定驱动器路径部分）的最后一个文件或文件夹。 object.GetFileName(pathspec) 参数 object 必选项。应为
VBS教程：方法-GetFile 方法
GetFile 方法返回与指定路径中某文件相应的 File 对象。 object.GetFile(filespec) 参数 object 必选项。应为 FileSystemObject
VBS教程：方法-GetExtensionName 方法
GetExtensionName 方法返回字符串，该字符串包含路径最后一个组成部分的扩展名。 object.GetExtensionName(path) 参数 object 必选项。应
VBS教程：方法-GetDriveName 方法
GetDriveName 方法返回包含指定路径中驱动器名的字符串。 object.GetDriveName(path) 参数 object 必选项。应为 FileSystemObjec
VBS教程：方法-GetDrive 方法
GetDrive 方法返回与指定的路径中驱动器相对应的 Drive 对象。 object.GetDrive drivespec 参数 object 必选项。应为 FileSystemO
VBS教程：方法-GetBaseName 方法
GetBaseName 方法返回字符串，其中包含文件的基本名 (不带扩展名), 或者提供的路径说明中的文件夹。 object.GetBaseName(path) 参数 object 必
VBS教程：方法-GetAbsolutePathName 方法
GetAbsolutePathName 方法从提供的指定路径中返回完整且含义明确的路径。 object.GetAbsolutePathName(pathspec) 参数 object
VBS教程：方法-FolderExists 方法
FolderExists 方法如果指定的文件夹存在，则返回 True；否则返回 False。 object.FolderExists(folderspec) 参数 object 必选项
VBS教程：方法-FileExists 方法
FileExists 方法如果指定的文件存在返回 True；否则返回 False。 object.FileExists(filespec) 参数 object 必选项。应为 FileS

首页

博学

6Ren·AI

商城

delphi - 有什么方法可以避免任务栏迷你窗口悬停时显示隐藏表单？