Delphi showmessage消息提示框被 窗体缩略图覆盖。

图片说明

如上图所示,前边的登录窗是主窗体,后边的是主界面。主界面窗关闭的时候弹出的消息框,总是被登录框的缩略图遮挡。。什么原理? 这种情况只会出现在,主界面最小化之后,重新最大化。然后就这样了。

谁遇到过哦?谁有思路哦?

0

2个回答

额,问题我自己解决了。登录界面成功之后,手动创建主界面,而不是通过delphi的工程管理器自动创建。将登陆窗free掉,手动创建出主界面,然后主动对主界面show。那么上述问题迎刃而解。
不知别人还有什么更好的方法呢。谢了哦。

0

同时,在系统的任务栏底下看应用程序的时候,程序的缩略图是 登录界面,而不是主窗体缩略图。这不科学哦就算在delphi中,我把主界面设置成主窗体,依然解决不掉这个问题哦。

0
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
用Delphi编写的消息对话框的自动关闭
用Delphi编写的消息对话框(包括信息提示对话框、警告提示对话框、出错对话框)的自动关闭,不用手动点击确定或取消来关闭。
Delphi中关于消息弹窗的总结
1.ShowMessage(‘要显示的字串’); 2.application.MessageBox(‘你好!在做测试!’,’提示:’,0); 3. var i:word; begin i:=MessageDlg(‘文件被修改,是否保存?’,mtConfirmation,[mbyes,mbNo,mbCancel],1); end; 4.Application.Messa...
DELPHI MessageBox自定义消息框图标〖源代码〗
应用程序在运行当中经常要输出各种即时信息,Delphi提供了多种形式的消息对话框可以满足这些要求,尽管可以使用各种标志定制一个消息框,但仍不能将自己的图标放在消息框内,也不能修改其标准行为去创建自己的消息框,其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制,这是一个功能很强、易于使用的函数。 ---- 此函数在WINDOWS单元里面,文件位于Delphi安装路径Source\Rtl\Win里面,需要指出的是,Delphi的原代码中它的返回值类型是BOOL型,而实质上它的返回值应为Integer。修改方法:在WINDOWS单元中找到此函数后,把BOOL改为Integer,共有三处要修改,然后在Delphi安装路径Lib中找到WINDOWS.DCU文件,把它改名或者删除,并把修改后的WINDOWS.PAS源码复制到Lib路径中。 ---- 该函数只有一个参数,类型是TMsgBoxParams,它的结构及说明如下: tagMSGBOXPARAMSA = packed record cbSize: UINT; {数据结构的长度} hwndOwner: HWND; {所有者窗口句柄} hInstance: HINST; {应用程序实例句柄} lpszText: PAnsiChar; {在消息框客户区内显示的文本} lpszCaption: PAnsiChar; {标题栏文本} dwStyle: DWORD; {确定消息框内按钮和图符 的数量及种类的MB_标志} lpszIcon: PAnsiChar; {从资源文件中取出的一个 图符资源的名字} dwContextHelpId: DWORD; {指定帮助文本的ID号} lpfnMsgBoxCallback: TPRMsgBoxCallback; {当用户按下HELP按钮时调用的一个回 调函数} dwLanguageId: DWORD; {显示在按钮内文本的语言定义} end; ---- 由于直接使用此函数比较复杂,我们可以自定义一个函数来封装此函数,对它进行简化,在用法上尽量做到与Delphi的消息框相一致,自定义函数代码如下: function MessageEx (lText,lCaption:PChar; lStyle:DWord;lIcon:PChar):Integer; var Msg:TMsgBoxParams; begin Msg.cbSize:=Sizeof(Msg); Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg.lpfnMsgBoxCallback:=nil; Msg.dwLanguageId:=LANG_NEUTRAL; Result:=MessageBoxIndirect(Msg); end; ---- 要想在消息框中显示自己的图标,先准备一个装有图标的资源文件,加在程序中,如{$R c:\mydir\myres.res},在lStyle参数里除了所需的MB_标志外还要加上MB_USERICON标志,并在最后一个参数里写上资源文件中图标的名字,如果不想使用自定义的图标,可将最后一个参数设为nil。函数的其它用法和返回值的处理与Delphi提供的消息框一样。 ---- 强烈建议把自定义函数放在一个单元文件里,并把此文件放在Delphi的搜索路径如Lib下,以后只需要把此单元加在uses语句里,就可以直接使用自定义函数,非常方便。
delphi 自定义消息窗口和进度条窗口,使用方便
和showmessage一样好用,定时自动关闭提示窗口, 进度条窗口也可以各种自定义,很cool
delphi xe 安卓非阻塞式对话框示例
看到好多人开发安卓程序时说原来的messagedlg对话框不能用了,我来提供一个,不再需要引用其它单元,写完整了,并附带了win32和Android的示例程序。
Delphi 关闭反复弹出的窗体
用Visual Studio打开解决方案的过程中,如果解决方案所引用的工程路径配置不正确,则会反复弹出Visual Studio确认窗口,如果解决方案包含成百上千个工程,那么用鼠标点确认会很浪费时间。于是编写了一个自动关闭“Visual Studio反复弹出确认窗体”的小程序。或许有人会问,为什么不将VS解决方案的工程路径配置正确?这个不是本篇文章的关键。因为那个路径是Build Server的路...
C++builder自定义消息框
自定义类,用GDI+绘图方式,实现消息对话框,目前可以实现确认,选择,两种功能。调用时,直接调用函数如: ShowMessageBox(this,"请选择您的设备型号","设备型号","icon.png"); 注意,不是系统的ShowMessage函数!!! 具体使用见demo代码,支持bcb6开发。可自行扩展其他功能。
delphi自动弹出式提示窗体
delphi自动弹出式提示窗体,可以像QQ一样弹出提示框的哦
Discuz!开发之消息提示函数showmessage()分析及用法实例
有兴趣的朋友可以查看showmessage函数和dshowmessage函数的定义,相关文件: \source\function\function_core.php \source\function\function_message.php function showmessage($message, $url_forward = '', $values = array(), $extr
Delphi XE5 升级到 XE10.1 图标出现黑框(背景色为黑色)解决方法
现象: 从原来的Delphi xe5工程升级到Delphi XE10.1后,程序中的所有图标透明部分都变成了黑色,包括工具栏图标、ListView图标。 注:在IDE编辑时图标显示正常,但是运行时透明部分都变成了黑色。 解决途径: 1、建立一个测试工程,将旧工程中的TImageList拷贝过去,建立新的工具栏,图标能正常显示,排除TImageList问题。 2、将旧工程拷贝一份做
DELPHI自定义消息框(MessageBox)〖源码和透明背景图标资源〗
支持DEPHI7~XE5 有源码和透明图标资源看看
在Windows服务程序中弹出信息提示框
只需要把已经安装的服务“右键->属性->勾选允许服务于桌面交互”
Delphi : 使用ApplicationEvents来拦截窗体消息,阻止WebBrowser右键菜单
Delphi : 使用ApplicationEvents来拦截窗体消息,阻止WebBrowser右键菜单 (2012-10-25 19:38:35) 标签:  it 分类: 软件_Software     项目需要一些全屏展示的web页面,结果碰到一个问题,当窗体上的webbrowse控件打开了网页之后,窗体就不响应键盘消息了~~~
Delphi窗体重划,激活窗体,应用于窗体显示置顶。
  F_main.WindowState :=  wsnormal;//窗体正常化  //窗体重划,激活窗体  Application.Restore;  SetForegroundWindow(Handle);
bootstrap弹出框被模态框遮挡
在使用bootstrap框架的情况下,从模态框中调用弹出框,弹出框被模态框遮挡。 遮挡效果如下: 导致的原因之一: z-index 属性设置元素的堆叠顺序。拥有更高堆叠顺序的元素总是会处于堆叠顺序较低的元素的前面。 所以出现问题可能是模态框的z-index值比弹出框的z-index值更大。 修改方式:在bootstrap的css源码中修改弹出框的值,使其比模态框的z-in
FastReport关闭弹出的进度条窗口
场景描述 在项目中用到FastReport打印报表,在点击打印是会弹出选择打印机对话框,选择打印xps格式后,弹出打印的路径窗口,这时在最顶层还会弹出一个取消的窗口置顶,点击取消也不起作用 解决方案 去掉打印的进度 在打印前设置,具体代码如下: public static FastReport.EnvironmentSettings eSet = new EnvironmentSetti
替代ShowMessage,MessageDlg功能
替代ShowMessage,MessageDlg功能,显示自己的提示框,设定语言信息等。
delphi消息弹出框封装
delphi消息弹出框封装 1.首先需要引入Winapi.Messages单元 2.创建函数function msgBox(msg: string; title: string; const tag: NativeInt): Integer; { msg:弹框消息 title:弹出框标题 tag:0:成功 1错误 2警告 } function msgBox(msg: string; ...
让窗体保持在最上方-delphi源码
让窗体保持在最上方--delphi源码。可以解决窗体被覆盖的问题。
ExtJS让被遮盖的窗体显示在最前面以及解决Ext.MessageBox提示框被TabPanel覆盖的方法...
一、如何让ExtJS的弹出提示信息框Ext.MessageBox或者创建的Ext.Window显示在最前面: 下面是显示一个Window的JS代码: var formPanel = MisTab1.createAddFormPanel(); var addWin = new Ext.Window({ title: "添加产品类别", pageX: 50,...
DLL中的窗体和主程序进行交互显示信息
DLL中的窗体和主程序进行交互显示信息
拦截双击标题栏、移动窗体的系统消息
        protected override void WndProc(ref Message m)         {             if (m.Msg != 0xA3 && m.Msg != 0x0003 && m.WParam != (IntPtr)0xF012)             {                 base.WndP...
WPF下自定义MessageBox消息提示
使用系统MessageBox与自己项目风格存在明显差异,定义自己风格的MessageBox 源程序地址https://download.csdn.net/download/hongbo1515/10609410,需要的朋友可自行下载,调整为所需要的风格   首先看一下确认窗口, 再看提示窗口 使用与系统MessageBox类似,下面说一下代码 1.确认窗口代码,MessageB...
andriod studio弹出消息对话框
(1)引出类import android.app.AlertDialog;(2)测试代码,本例子中selectedImagePath是string类型的测试代码new AlertDialog.Builder(this) .setTitle("标题") .setMessage(selectedImagePath) .setPositiveBut...
JQuery 制作消息弹出框效果
目录 效果图 实现代码 效果图 实现代码 <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <!-- BootCDN提供了很多如JQuery、Chart.js、ECarts.js等等,BootCDN官网地址:http://www.boot...
Delphi 窗体置顶
窗口的formShow事件中,增加以下代码: Application.NormalizeTopMosts; // 如果不加入这一句,非主窗口仍然不能置顶 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);取消置顶SetWindowPos(Self.Handle, HWND_NOTOPMO...
YMessageBox很漂亮的消息对话框 确认提示、警告、错误提示窗等等
YMessageBox很漂亮的消息对话框 确认提示、警告、错误提示窗等等 YMessageBox 确认提示、警告、错误提示窗等,用YaoUI重新写了下,但是没有做任何的优化,看上去还不错,在使用Ajax程序时,用这个模拟提示窗口应该比浏览器自带的提示框看上去更亲切。
jquery-easyui弹出对话框被ActiveX控件遮挡
jquery-easy-ui弹出对话框被ActiveX控件遮挡
如何在关闭窗体前出现提示窗口
该程序使用vs2005编写,在窗口关闭前出现提示窗口,用以确认窗体是否关闭。
delphi application的对话框为什么跑到主窗口后面 ?
很多人纳闷,delphi写的程序,有时候对话框会跑到主窗口后面,怎么调整都不好,以为delphi天生的缺陷,经过我的研究后终于发现了问题所在.原来很多人做循环处理的时候,常常在循环体内加入application.processmessages,这会使长时间的循环处理的时候,界面看起来不像卡死.但是这时候如果点击了界面,最前端的窗口就不是application了,就是你点击的哪个界面了;这是因为ap
Delphi截获webbrowser中关闭及右键消息处理一例
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var setINI: Tinifile; oldPoint, newPoint: TPOINT; begin   if Msg.message = WM_CLOSE then {//判断是否关闭消息}  begin   
弹出消息提示框,弹出确认取消,弹出物品获得提示框
一、 弹出提示框 Globals.MUIManager.CreatMessageLabel("支付失败"); public T GetUI<T>() where T : HotFix_Project.UI.UI_Logic { HotFix_Project.UI.UI_Logic logicPanel = null...
Delphi XE5 Android Dialogs 对话框
http://blog.csdn.net/flcop/article/details/16973883
vue+elementui--$message提示框被dialog遮罩层挡住问题解决
最近碰到一个先执行this.$message提示内容,然后接着弹出dialog带遮罩层弹框。那么问题来了,message提示框会默认被dialog遮罩层挡住,现在就是要解决这个问题。 由于都是弹框,问题肯定是出在z-index比重问题。由于用$message方式是写在js中而不是写在html中所以不是很好直接去改样式。 不过好在message组件中提供了customClass 属性,我们可以利用这...
delphi7 弹出式对话框总结
Delphi 弹出式对话框总结,希望能有需要的看一下,帮助挺大
[MFC] 无边框窗口的Resize拖动效果的实现(下):子窗口覆盖,导致主窗口热点区无法响应WM_NCHITTEST
http://blog.csdn.net/felicityWSH/article/details/68486466 这篇博文讲解了如何实现无边框窗口的Resize拖动效果,文中提到,需要响应主窗口的WM_NCHITTEST消息,检测鼠标是否在resize热点区并返回HTTOPLEFT、HTBOTTOM等相应的结果。 但是,如果子窗口覆盖了主窗口的热点区,当鼠标在热点区移动时,主窗口是无
winfrom右下消息弹出框
使用TaskbarNotifier,用多线程一次弹出多个消息框
C# 桌面弹出窗体,右下角弹提示框
C# 桌面 弹出窗体,右下角 弹提示框,类QQ实现弹框提示。
Bootstrap智能消息提示框
Bootstrap智能消息提示框
C# 中的MessageBox 弹出提示框(消息框)的用法
刚好用到MessageBox  ,所以就在网上查着学习了一下。 MessageBox.Show(<字符串> Text, <字符串> Title, <整型> nType,MessageBoxIcon); 它的格式就是上面这个, 第一个参数是 String 类型,表示提示框里面的 内容; 第二个参数是String 类型,表示提示框的 标题; 第三个参数是整...