![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
初学Delphi,请教怎样打开多个form的实例
展开全部
我写过通用的打开MDI子窗体的函数
调用格式
OpenChildForm(TForm1,Form1)
不过是写死在每个事件里的
每个菜单项写一个ItemClick事件
作用只是把每个事件里的n行代码压缩成1行,让主窗体的代码看着清晰点
要写成通用的就不知道了,
想过改进,比如按顺序把MenuItem.Tag设上值1~n
这样只用写一个ItemClick事件 再设置所有MenuItem.Onclick := ItemClick
然后根据Sender.Tag去判断OpenChildForm后边传什么参数
但这里卡住了,传参数好麻烦
我想把子窗体也按顺序存进TStringList
调用格式
OpenChildForm(TForm1,Form1)
不过是写死在每个事件里的
每个菜单项写一个ItemClick事件
作用只是把每个事件里的n行代码压缩成1行,让主窗体的代码看着清晰点
要写成通用的就不知道了,
想过改进,比如按顺序把MenuItem.Tag设上值1~n
这样只用写一个ItemClick事件 再设置所有MenuItem.Onclick := ItemClick
然后根据Sender.Tag去判断OpenChildForm后边传什么参数
但这里卡住了,传参数好麻烦
我想把子窗体也按顺序存进TStringList
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询