这个是在书看到的一个例子,但是有一些不全,所以本人就在上加以修改.
可以用来判断子窗体是否创建,还是最小化,还是关闭,让我们更好的了在多个窗体之间交换数据.
function createform(cform:tform):boolean; //调用判断是否创建窗件函数
var
NO:integer;
formexist:boolean;
begin
formexist:=false;
if cform=NIl then
begin
createform:=false;
exit;
end;
for NO:=0 to screen.FormCount -1 do
begin
if screen.Forms[NO].ClassType =cform.ClassType then
formexist:=true;
end;
if formexist=false then
begin
createform:=false;
exit;
end;
if cform.WindowState =wsminimized then
showwindow(cform.Handle ,sw_shownormal)
else
showwindow(cform.Handle ,sw_showNA);
if not cform.Visible then
cform.Visible :=true;
cform.BringToFront ;
cform.SetFocus ;
createform:=true;
end;
在主窗体里用以下代码调用:
if createform(f_dept)=false then //判断是否创建,有就显示
f_dept:=tf_dept.Create(application); //没有则创建 |
