delphi里如何实现打开一个窗口,必须关掉它才能打开另一窗口

最新推荐文章于 2024-01-12 16:58:31 发布
最新推荐文章于 2024-01-12 16:58:31 发布
阅读量349 收藏
点赞数
分类专栏： Delphi 文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fangyuan621/article/details/123578781
版权

Application.CreateForm(TFrom,From);
Form.ShowModal;

ShowModal()

就是使该窗口为当前窗口,并且其它窗口不能使用...

fangyuan621
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi工具主程序调用子窗口（多窗口）
07-08
用DELPHI工具开发的调用子窗口DLL模块实例
Delphi程序调用IE打开浏览器窗口的源程序
05-07
内容索引:Delphi源码,系统相关,IE,浏览器　Delphi程序调用IE打开浏览器窗口的源程序，实现在自己的窗口中打开或关闭IE，第一次打开程序会枚举出最前端的一个IE窗口，以及窗口标题等信息，你也可以自己输入新网址。
使用互斥对象让程序只运行一次
hj163的专栏
12-01 783
“怎么让我的程序在运行时不能重复打开？”经常在论坛上看到有朋友问这方面的问题。本文将比较详细的说明这一问题，并给出一个较为完善的解决方案。尽管这已经不是一个新问题了，但这里还是简要的说明一下这种技术：这的确是一个相当有用的技术，可能你经常会注意到相当多的程序在运行之后当你再次点击运行时，它只是会回到原来的窗口，而不会运行两个程序。就如同你在运行delphi时，在外部点开另一个工程文件时，delph
delphi调用子页面
weixin_44581028的博客
09-29 391
1.首先创建一个子窗体 2.在主窗体中引入单元1 3.在你所写得方法中create,然后show；窗体就显示完成了。
在Delphi的窗口单元中，如何调用其它窗口的单元。
weixin_30915951的博客
06-08 341
在Delphi的窗口单元中，如何调用其它窗口的单元。(转载) . 在Delphi中简单的调用单元 unit实例 一,新建一个工程文件,默认的文件是unit1,代码如下:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, ...
请教如何在onshow事件里退出.
aibi9196的博客
04-22 133
请教如何在onshow事件里退出. Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiBase/html/delphi_20061206144507264.html 本人用delphi 6写了一个dll,dll里创建了名为frm_user_defined_report_forms的from。本人想在这个from的ons...
Delphi 无边框窗口的实现
05-18
使用Delphi源码实现一个无边框窗口，把标题栏去掉了，同时也去掉了标题栏上的最大化、最小化和关闭按钮，测试发现，这个无标题栏无边框的窗体不能拖动，要是能拖动就更好了。 运行环境：Windows/Delphi7
delphi的一个简单的窗口显示
04-03
在Delphi编程环境中，创建一个简单的窗口显示是学习和实践基础UI交互的起点。这个话题主要涉及以下几个关键知识点： 1. **VCL框架**：Delphi的Visual Component Library（VCL）是一个强大的组件库，它提供了创建...
delphi 实现多个浮动透明窗口
03-01
在 Delphi 中，我们可以创建一个新的 TForm 类，这是 Delphi 中的标准窗口组件。为实现浮动窗口，我们需要覆盖它的 `OnCreate` 和 `OnClose` 事件，以便在程序启动和关闭时进行相应的操作。 2. **设置窗口透明性**...
Delphi7如何打开和关闭Exe并带参数
08-18
首先，让我们讨论如何在Delphi 7中打开一个带有参数的EXE程序。这可以通过使用`ShellExecute`函数来完成，它属于`ShlObj`单元。以下是一个简单的示例： ```delphi uses ShlObj; procedure OpenExeWithParams...
delphi中判断子窗体是否打开
08-18
delphi中判断子窗体是否打开delphi中判断子窗体是否打开
Delphi 模态窗体下更新另一个窗体内容
08-17
Delphi 模态窗体下更新另一个窗体内容，更方便多选内容在新窗体更新
delphi xe 安卓非阻塞式对话框示例
08-19
看到好多人开发安卓程序时说原来的messagedlg对话框不能用了，我来提供一个，不再需要引用其它单元，写完整了，并附带了win32和Android的示例程序。
DLL_Windows.rar_delphi dll窗口_多层_窗口_窗口 DLL
09-20
标题中的“DLL_Windows.rar_delphi dll窗口_多层_窗口_窗口 DLL”表明这是一个关于使用Delphi编程语言创建的动态链接库（DLL），主要关注的是如何在DLL中实现多层窗口的功能。DLL是一种可执行代码库，允许不同程序...
Delphi实现拖动按钮移动无标题栏窗口
05-11
无标题栏的窗体的拖动功能实现，Delphi添加一个可拖动窗体的按钮，通过对此按钮的控制可移动窗体，实现按住标题栏移动窗口的功能，无标题栏也就不能显示最大化、最小化和关闭窗口的功能，因此本程序自定义了一个关闭...
DELPHI中MDI子窗口的关闭 和打开
wozengcong的专栏
01-24 7691
Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例： procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction); begin    Acti
Delphi主窗体打开窗体及调用其他单元中的方法
最新发布
PleaseGo的博客
01-12 726
Delphi主子窗体及单元方法
截获消息（2）
sssa2000的专栏
07-08 2247
截获消息（2）   by sssa2000 2004/07/03 放假了，突然想起还没写完这个东西，呵呵 迟到了。虽然我也知道没什么人看，我还是有始有终，写完它。 上次说到在自己的窗体中截获消息，我们的目的是截获制定程序的消息，怎么办呢？很容易的，我们想到了钩子。 Hook可真是好冬冬，没有他的话黑客编程可就没什么乐趣了。 我们用一个getmessage的hook来钩住我们想要得线程的消息。 我们
主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制...
weixin_34161064的博客
04-28 208
\Delphi 6数据库开发典型实例\图表的绘制 1、在主窗体里面打开子窗体：ShowForm(Tfrm_Print); procedure Tfrm_Main.ShowForm(AFormClass:TFormClass); begin with AFormClass.Create(Self) do try ShowModal; // 阻塞或者模态窗口，只有你把当前窗口关闭...
delphi 等待窗口
10-24
Delphi是一种非常流行的编程语言，用于开发Windows平台上的应用程序。在Delphi中，我们可以使用TForm组件创建窗体，然后通过编写代码来实现各种功能。 在开发过程中，经常会遇到需要显示等待窗口的场景。等待窗口通常用于在长时间的操作中向用户提示正在处理，并防止用户过早的关闭或终止操作。 在Delphi中，我们可以使用TForm组件来实现等待窗口。首先，在设计时，我们需要创建一个新的窗体，设置其属性如标题、大小等。 然后，我们可以在窗体的OnCreate事件中添加一些代码来实现等待窗口的逻辑。比如，可以在OnCreate事件中添加一个旋转的进度条控件，并设置其可见性为True，从而显示等待效果。 在长时间的操作开始之前，我们可以使用窗体的Show方法来显示等待窗口。随后，我们可以执行长时间的操作。 在长时间的操作完成后，我们可以通过调用等待窗口的Close方法将其关闭，并让主窗体恢复响应。可以在等待窗口的OnClose事件中添加一些代码来做一些清理工作。 此外，我们还可以通过设置等待窗口的ShowModal方法来设定其显示方式为模态，即阻止用户对主窗体的操作，直到等待窗口关闭。 总之，Delphi提供了很多实现等待窗口的方法和技巧，我们可以根据具体需求来选择合适的方式，并通过编写代码实现。等待窗口可以使我们的应用程序更加友好和高效。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值