[Warning] MainForm.pas(72): Return value of function 'TMain.FindForm' might be undefined
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;
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;
解决方案 »
- MoveWindow坐标定位
- 如果在内存中作标记
- 在本版的第一帖============文本文件操作问题~~~
- 在线等待
- 在DELPHI中如何控制SQL SERVER的“停止、运行”?
- 谁用过xp操作系统?
- 麻烦各位高手推荐几本delphi图象处理的书!
- 谁知道哪个网站能提供注册码的查询呀?!或者有谁能提供 system mechanic 这个软件的注册码呀?!这是一个在win xp下清理垃圾的软件。
- 求一个Delphi+Sql进销存源代码程序
- 如何把combobox里选择到text的简单应用(菜鸟)。马上给分
- 有没有简单的办法来实现统计文章中单词的个数
- [Warning] MainForm.pas(81): Variable 'newform' might not have been initialized
var
i:integer;
begin
Result:= False; --------------> 加上这句 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;