procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Perform(WM_SETREDRAW, 0, 0); //锁屏幕
Child := TMDIChild.Create(Application);
Child.WindowState := wsMaximized; //假设在这里将新建的子窗体设为最大化
//或设置子窗体的Width和Height都可以
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
Perform(WM_SETREDRAW, 1, 0); //解锁屏幕并重画
RedrawWindow(Handle, Nil, 0, RDW_FRAME + RDW_INVALIDATE +
RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
end;
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/aroc_lo/archive/2010/09/19/5895524.aspx
分享到:
相关推荐
delphi最大化MDI子窗口防止屏幕闪烁
14.2.5 多个接口问题 281 14.2.6 Variant类型 284 14.2.7 TComObject 289 14.2.8 TTypedComObject 295 14.3 OLE自动化 307 14.3.1 创建OLE自动化服务器 307 14.3.2 建立OLE客户程序 314 14.3.3 访问自动化服务器的...
14.2.5 多个接口问题 281 14.2.6 Variant类型 284 14.2.7 TComObject 289 14.2.8 TTypedComObject 295 14.3 OLE自动化 307 14.3.1 创建OLE自动化服务器 307 14.3.2 建立OLE客户程序 314 14.3.3 访问自动化服务器的...
实例032 制作闪烁的窗体 39 实例033 直接在窗体上绘图 40 实例034 动画形式的程序界面 41 实例035 以时钟显示界面窗体 42 1.10 标题栏窗体 44 实例036 标题栏上的按钮 45 实例037 使窗体标题栏文字右...
0053 解决程序的死锁问题 34 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 ...
0053 解决程序的死锁问题 34 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 ...
无闪烁 图形功能是提供 实时的 ,因此,效果总是用锐利的色彩方案,并 移动 和 调整大小 在运行时间 每个控制 支持 TsHintManager做出提示,显示Alpha混合,用HTML的格式,你可以从许多方面选择显示 位置和渲染...
全空间数据基础设施和支持MDI窗体 皮肤支持所有常见的Windows对话框和消息 内置的PNG格式的支持,TsAlphaImageList组件非常方便工作 最简单,功能强大的皮肤引擎,支持 内部和外部的皮肤 ,一个控制类型可以在某些...
的特殊控件、组件需求,如果控件提供商能一站式的解决这些问题,提供完整的界面解决方案,那将极大的减少界面方面的 研发投入。 IM即时聊天客户端产品,除了通用界面库的需求外,可能还需要制作聊天窗口的RichEdit...