Delphi中MDI窗体调用MDI子窗体Delphi中MDI窗体调用MDI子窗体,怎么调用

先定义一个函数
private
function FindForm(caption: string): bool;
{ Private declarations }

public

{ Public declarations }

end;
var
MAIN: TMAIN;
implementation
{$R *.dfm}

//-----------通过用户定义的函数，判断窗体是否已存在--------------------
function Tmain.FindForm(caption: string): bool;
var
i:integer;
begin
//result:=false;//防止出现函数返回值没有定义的警告
result:=true;//防止出现函数返回值没有定义的警告
for i:=0 to main.MDIChildCount do
begin
// 通过对窗体标题判断窗体是否存在
if main.MDIChildren[i].Caption=caption then
begin
//如果窗体已存在，则恢复窗体，并返回true
SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
mdichildren[i].Enabled:=true;
mdichildren[i].Show;
mdichildren[i].SetFocus;
result:=true;
break;
end
else
//如窗体不存在，则返回false，程序将创建窗体
result:=false;
end
end;
然后打开MDI子窗体，我合理是caozuorenyuan
//-------------打开操作人员设置窗体----------
procedure TMAIN.N2Click(Sender: TObject);
Var
newform:Tcaozuorenyuan;
begin
if FindForm('操作人员设置')=false then
begin
newform:=Tcaozuorenyuan.Create(application);
newform.Caption:='操作人员设置';
end;
end;

Delphi中MDI窗体调用MDI子窗体Delphi中MDI窗体调用MDI子窗体,怎么调用相关推荐

mysql 录入窗体设计_在Access中，可用于设计输入界面的对象是　　A）窗体 B）报表 C）查询 D）表...
展开全部在Access中,可用于设计输入界面的对象是窗体.不属于Access数据类型62616964757a686964616fe4b893e5b19e31333431373330的是报表. 窗体对 ...
eclipse java shell 窗体显示 bat运行不显示_java eclipse中如何实现点击主窗口sShell中的按钮打开另外一个子窗口sShell...
java eclipse中如何实现点击主窗口sShell中的按钮打开另外一个子窗口sShell 关注:97 答案:2 mip版解决时间 2021-01-31 13:01 提问者╬═掵中注定 20 ...
vue 关闭弹如何销毁子组件_vue中的eventBus会产生内存泄漏吗
eventBus是在vue中经常用来解决跨组件消息传递的问题,但对它的使用要特别注意,否则会产生很严重的后果. 引入本文介绍了eventBus的实现原理,并介绍它如何在vue中使用,并举了一个具体的 ...
Vue父组件传子组件数据中，Vue监听不到数据改变
Vue父组件传子组件数据中,Vue监听不到数据改变官方文档说明(引用来自官网) 检测变化的注意事项由于 JavaScript 的限制,Vue 不能检测数组和对象的变化.尽管如此我们还是有一些办法来 ...
delphi通过php连接数据库,delphi2010中使用sqlitesimpledelphi连接sqlite数据库并解决中...
delphi2010中使用sqlitesimpledelphi连接sqlite数据库并解决中作者:小涵 | 来源:互联网 | 2014-05-28 16:21 阅读: 6469 应女朋友的要求,要写 ...
[转载] 张子阳 --- C# 中的委托和事件
引言委托和事件在 .Net Framework中的应用非常广泛,然而,较好地理解委托和事件对很多接触C#时间不长的人来说并不容易.它们就像是一道槛儿,过了这个槛的人,觉得真是太容易了,而没有过去 ...
python调用c++动态库 linux_linux中使用boost.python调用c++动态库的方法
前言最近开始使用 robot framework 测试c++的动态库,robot framework 是跑在 windows 上面,c++动态库是跑在远程linux主机上面.测试办法是让 robot ...
调用另一个python文件中的代码
python3.*版本下好像不一样,正确引用方法: utils是同级目录,options是文件,后面是函数 from .utils.options import parseOptions from . ...
【Android Gradle 插件】gradle.properties 中配置编译参数并在 Java 代码 BuildConfig 中调用该参数
文章目录一.gradle.properties 中配置编译参数二.在 build.gradle 中配置 BuildConfig.java 生成信息三.编译后生成的 BuildConfig 类 A ...
【Android 逆向】ART 脱壳 ( InMemoryDexClassLoader 脱壳 | DexFile 构造函数及相关调用函数 | Android 源码中查找 native 函数 )
文章目录一.DexFile 构造函数二.DexFile.openInMemoryDexFile 函数三.Android 源码中查找 native 函数一.DexFile 构造函数上一篇博客 ...

Delphi中MDI窗体调用MDI子窗体Delphi中MDI窗体调用MDI子窗体,怎么调用

Delphi中MDI窗体调用MDI子窗体Delphi中MDI窗体调用MDI子窗体,怎么调用相关推荐

最新文章

热门文章