if form1=nil then
form1 :=Tform1.Create(self);
form1.show ;
form1 :=Tform1.Create(self);
form1.show ;
解决方案 »
- 请各位高手帮忙一下:如何把内存中的数据流保存成文件!
- 曲线拟合的问题:
- 现在开发多层分布式系统该用什么样的技术什么样的架构?
- XML文件怎么装入TREE控件里 ?我给单独100分
- 点击Tool->Web App Debugger调试出错!!!
- 谁能告诉我网际快车的注册码!!紧急!!!!!!!!!!
- 请问如何建立窗体级的变量
- 各位高手,老鱼,千两狂死郎,小新等等,请来帮帮忙吧!!关于数据更新的问题!
- 我想问一下dbe的支持库有多大?具体是哪些?
- Delphi中是否有类似于C的static变量
- BCB_FANS(四大名捕之追杀令) 收获的季节到了,进来拿分!不要客气。
- 有谁想知道SOCKS5代理服务器的请进,不可不读,如果有收获,别忘了给分呀
procedure Tfrmmain.ShowAddForm(FormClass: TFormClass;FormName:Pointer);
begin
if not assigned(FormName) then
begin
with FormClass.Create(self)do
try
show;
except
free;
end;
end else
show;
end;调用:ShowAddForm(TForm1,Form1)
结果总是会创建多个窗口的实例。
function AddNewForm(AclsForm: TFormClass): TForm;
var
iIndex: Integer;
begin
Result := nil;
//遍历是否类类型相同的窗体
for iIndex := 0 to Screen.FormCount - 1 do begin
if (Screen.Forms[iIndex].ClassType = AclsForm) then begin
Result := Screen.Forms[iIndex];
break;
end;
end;
if not Assigned(Result) then begin
Result := AclsForm.Create(Application);
end;
Result.Show;
end;