delphi][form][变化]delphi中请问在form的大小发生变化的时候怎么让form上控件的
3个回答
2010-11-19
展开全部
var
form2: TForm2;
begin
form2:= TForm2.create(nil);
try
form2.ShowModal;
finally
form2.free;
end;
end;
这种方法无法确保当前没有相同的实例存在,可能会出错.
建议如下方式
begin
if assgned(someform) then begin
application.createForm(TSomeForm,SomeForm);
try
SomForm.ShowModal;
finally
SomeForm.Free;
SomeForm := nil;
end;
end
else
SomeForm.ShowModal;
end;
这两种方法都不适应无模式窗体,因为对于无模式窗体来说,程序无法从代码来判断什么时候结束。第二个方法可以在无模式窗体的OnDestroy事件中,SomeForm := nil;将窗体置空,然后就可以保证不会重复创建实例了
form2: TForm2;
begin
form2:= TForm2.create(nil);
try
form2.ShowModal;
finally
form2.free;
end;
end;
这种方法无法确保当前没有相同的实例存在,可能会出错.
建议如下方式
begin
if assgned(someform) then begin
application.createForm(TSomeForm,SomeForm);
try
SomForm.ShowModal;
finally
SomeForm.Free;
SomeForm := nil;
end;
end
else
SomeForm.ShowModal;
end;
这两种方法都不适应无模式窗体,因为对于无模式窗体来说,程序无法从代码来判断什么时候结束。第二个方法可以在无模式窗体的OnDestroy事件中,SomeForm := nil;将窗体置空,然后就可以保证不会重复创建实例了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询