只允许建立一次子窗体的MDI程序_Deiphi窗体文章_Deiphi_编程开发

只允许建立一次子窗体的MDI程序

日期：2008-10-20 22:10:38　　　　来源：

　·用DELPHI通过写注册表来实现建立IIS的虚拟目录！　·窗体控件构建Excel动态图表
　·关闭MDI窗体中所有的子窗体

只允许建立一次子窗体的MDI程序。
　　procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent);
var
I: Integer;
Child: TForm;
begin
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I].ClassType = FormClass then
begin
Child := Screen.Forms[I];
if Child.WindowState = wsMinimized then
ShowWindow(Child.Handle, SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then Child.Visible := True;
Child.BringToFront;
Child.Setfocus;
TForm(Fm) := Child;
Exit;
end;
Child := TForm(FormClass.NewInstance);
TForm(Fm) := Child;
Child.Create(AOwner);
end; 　[1]

只允许建立一次子窗体的MDI程序

建立Internet连接

保持初始的窗体大小

使MDI窗口有一个背景图象或使它平铺

◎→	本类最新
DELPHI动态生成控件 Delphi编程中创建一个启动闪现窗在win95,win98下实现半透明的窗口拖动无标题栏窗体的方法用Delphi 控制窗体的大小使MDI窗口有一个背景图象或使它平软件启动画面中启动状态的显示

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
DELPHI中的消息处理机制(1) 用Delphi编制趣味动画鼠标资源文件的应用怎样向SQL Server插入带有Image字支持D6的FastReport2.45 (报表控 Delphi数据压缩处理(2) Delphi数据压缩处理(1)