怎样在窗口设为最前面时,只有该窗口能操作,其他窗口不能操作? 模式窗口 form2.ShowModal;这样只有form2可用,其它的不可用。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.AlwaysOnTop(Form: TForm; OnTop: Boolean);begin if OnTop then SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) else SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)end; 楼主不是这个意思,他的意思是要使一窗体保持在所有窗体之前,用消息控制的。: foreveryday007(foreveryday007)回答的不错。 楼主不是这个意思,他的意思是要使一窗体保持在所有窗体之前,用消息控制的。: foreveryday007(foreveryday007)回答的不错。 用showmodal激活當前窗體,隻有關掉當前窗體才可以操作別的窗體用show如果要操作別的窗體,它會把當前窗體退到後面 delphi为什么修改dbgrid会出错 idudpserver发送信息问题 如何做成一个以图标形式加载在任务栏右下角的程序?急!!! 如何将以下三个IF段合并成一串通用的过程!高难度分数可加! 如何做个数据库配置界面 如何用delphi调用飞信WebService接口实现短信发送 安装好mysql5.0服务不能启动 在VC里有CJLibrary这样的类库可以做winxp的效果,delphi有类似的控件吗? 小小case 这么难!!!谁知道如何直接将webbrowser显示的页面保存为mht格式的文件啊? delphi的ListView排序问题 寻求帮忙,全部奉送
begin
if OnTop then
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE)
else
SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE)
end;
: foreveryday007(foreveryday007)回答的不错。
: foreveryday007(foreveryday007)回答的不错。
激活當前窗體,隻有關掉當前窗體才可以操作別的窗體
用show
如果要操作別的窗體,它會把當前窗體退到後面