1.窗体还没有free,就Nil, 如果继续使用此窗体,会不会出错!2.怎么通过类返回对象名, 如下:
动态任意建立一个窗体:
myForm: TForm1;在Form1的单元里,能不能返回对象实例myForm;
动态任意建立一个窗体:
myForm: TForm1;在Form1的单元里,能不能返回对象实例myForm;
解决方案 »
- 如何在Onshow中添加过程
- 如何在调试环境中忽略特定的一些异常?
- 急!一个很辣手的问题?????????大虾请指教!
- 请问各位大虾,在ADOQuery中参数传递(Parameter)是如何做的?清列出步骤!
- 请问我写的这个过程错在那里?为什么运行总是table只读?我就没看出来!
- 请大家帮忙看看,关于dbchart的问题
- 100分!求asdl拨号软件是怎么实现的?Enternet300比及winxp下的拨号软件功能就不全了
- 小MM问大家一个问题,非常急
- 哪地方有DELPHI资料大全(双CD)卖,我买过VC、VB资料大全,就是没有DELPHI资料大全,不知该CD 有何内容,内容主要来自何处
- 菜鸟提问:delphi有没有类全图呀!就象MSDN的Hierarchy Chart.我想知道 ..........
- Delphi VS VB,急Delphi好让人失望啊,请高手帮帮忙!
- 字段类型简单问题
2、可以使用继承的方法type
TMyForm=class(TForm1)end;
//定义:
myForm:TmyForm;
with tform1.Create(self) do
try
ShowModal;
....
finally
Free;
end;
第二题,是不是想知道有多少TForm1实例?class function Tform1.GetSelf: TForm;
var
i: Integer;
begin
Result := nil;
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].ClassName = self.ClassName then
begin
Result := Screen.Forms[i];
Result.BringToFront;
Exit;
end;
end;