主窗体为MDI,子窗体的建立写到了DLL里,代码见内,如何判断使子窗体只CREATE一次?
2005-07-09 17:34
381 查看
建1个StringList;
procedure ShowChild(form:TForm);StdCall;
var
ptr:PLongint;
Form1:TForm1;
begin
if StringList.IndexOf(form.name)<>-1 then
begin
exit;
end;
ptr:=@(Application.MainForm);
ptr^:=Longint(form);
Form1:=TForm1.Create(form);
StringList.Add(form.name);
Form1.Show;
end;
procedure ShowChild(form:TForm);StdCall;
var
ptr:PLongint;
Form1:TForm1;
begin
if StringList.IndexOf(form.name)<>-1 then
begin
exit;
end;
ptr:=@(Application.MainForm);
ptr^:=Longint(form);
Form1:=TForm1.Create(form);
StringList.Add(form.name);
Form1.Show;
end;
相关文章推荐
- Delphi中如何把函数代码调出主程序,写到“DLL”中并调用
- 黄聪:如何判断VS开发C#是否为设计模式,以免编译之前操作窗体设计器代码自动运行
- MdiChildActivate在子窗体激活和关闭时都会触发,请问如何判断是激活时触发还是关闭时触发?
- 如何在C#的MDI窗体中同样的子窗体只显示一次
- .Net - C# 如何判断程序里某个窗体是否为Windows的当前活动窗体?(附代码)
- c#判断打开的窗体:MDI和非MDI
- DLL入门浅析(1)——如何建立DLL
- 一个windows应用程序内部到底有没有DLL文件的代码呢???它是如何调用DLL的???
- vb6如何在任务栏中显MDI子体窗体的标题
- 如何使用最少的代码为你的窗体有效地提供剪贴板的相关操作
- 链表建立过程中如何巧妙设置链表成功建立的判断条件
- 如何判断一个窗体是否打开
- 如何修改一次代码就可以完成多种类型 cell 的 UITableView 增删修改顺序?
- 如何用代码判断1000年---2000年之间的闰年
- 如何通过代码实现 Windows Mobile 窗体的最小化
- 程序员如何才能提高自己?通过一次重构代码讲解自己的感受【有代码比较】
- 如何在MDI中使子窗体只保留一个实例
- DLL 作为 MDIChild (子窗体)
- 【软件工程】持续集成:如何建立百万行级代码的版本构建系统
- [转载]如何在MDI中使子窗体只保留一个实例(反射方法)