关于判断MDI窗体是否存在,存在则显示,不存在则创建
来源:互联网 发布:php短信接口代码 编辑:程序博客网 时间:2024/05/01 04:46
采用MDI模式设计窗体,每次显示新的窗体时候,前一个窗体就会被覆盖,当再次需要显示前一个窗体的时候,首先判断窗体是否已经存在,如果存在那么显示即可,不存在则创建
function Tmain.FindForm(caption: string): bool;
var
i:integer;
begin
for i:=0 to main.MDIChildCount do
begin
// 通过对窗体标题判断窗体是否存在
if main.MDIChildren[i].Caption=caption then
begin
//如果窗体已存在,则恢复窗体,并返回true
SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
mdichildren[i].Enabled:=true;
mdichildren[i].Show;
mdichildren[i].SetFocus;
result:=true;
break;
end
else
//如窗体不存在,则返回false,程序将创建窗体
result:=false;
end
end;
-------------
procedure Tmain.N2Click(Sender: TObject);
var
newform:TSecSetting;
begin
if findForm( '会计科目设置 ')=false then
begin
//若窗体不存在,则创建窗体
newform:=Tsecsetting.Create(application);
newform.Caption:= '会计科目设置 ';
end;
end;//判断是否存在窗体并创建
- 关于判断MDI窗体是否存在,存在则显示,不存在则创建
- C# winfrom判断文件是否存在,不存在则创建,否则读取值显示到窗体
- 判断文件是否存在,不存在则创建
- 判断目录是否存在,不存在则创建
- 判断文件夹是否存在,不存在则创建
- 判断文件夹,是否存在,不存在则创建
- JAVA判断文件是否存在,不存在则创建
- VC++------------判断指定目录是否存在,不存在则创建
- PHP 判断目录是否存在,不存在则创建
- 判断文件夹是否存在,不存在则创建文件夹
- 判断文件夹是否存在,不存在则创建文件夹
- 判断路径是否存在,不存在则创建该路径
- DELPHI判断目录是否存在,如果不存在则创建目录
- 判断某一文件夹是否存在,不存在则创建该文件夹
- C#判断目录是否存在,不存在则创建
- java 判断数据库表是否存在,不存在则创建。
- php判断文件夹是否存在,不存在则创建
- 判断文件夹,是否存在,不存在则创建Qt
- Mina(Multipurpose Infrastructure for Network Applications)完全文档
- 利用SEO长尾理论来赚钱!
- Linux那些事儿 之 戏说USB(22)设备的生命线(一)
- mina 简单实例(传送文本的)
- DB2客户端连接服务器的配置问题
- 关于判断MDI窗体是否存在,存在则显示,不存在则创建
- MINA Beginning (转载)
- 第一次网上买书 就碰到 当当这么虚情假意的!~
- 多年前的档案找到了
- 快速排序的C#实现以及,算法导论上之后一个习题的思考
- 关于友元
- [转]笔记本上装Vmware巨慢无比的原因探索
- Unix 的入侵追踪
- 一统天下,使用ANT构建VS.NET工程