2013年3月19日

delphi中子窗体通用打开函数

摘要: 没有用MDI类型,是用setparent来设置子窗体的,在主窗体上放置一个panel2做为子窗体的父容器。Main为主窗体。子窗体中最好在关闭和ondestory中写上代码,在Onclose中写action:=cafree ,在ondestory中写上childfrm=nil;如下代码:procedure CreateChildFrm(AForm:TCustomForm;const AFormClass:TFormClass);function isExist():boolean;var i:integer;begin result:=False; for i :=0 to Screen... 阅读全文

posted @ 2013-03-19 11:56 天上星 阅读(1614) 评论(0) 推荐(0) 编辑

导航