No.1 通过TComponent.FindComponent方法
TempForm:=TForm1.Create(Application); //Self -> Application
其他窗体
TForm(Application.FindComponent('N' + IntToStr(I))).Show;No.2 通过遍历Screen的窗体
var
I: Integer;
begin
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I].Name = 'N?' then begin
{ TODO : 处理Screen.Forms[I] }
Break;
end;
end;
TempForm:=TForm1.Create(Application); //Self -> Application
其他窗体
TForm(Application.FindComponent('N' + IntToStr(I))).Show;No.2 通过遍历Screen的窗体
var
I: Integer;
begin
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I].Name = 'N?' then begin
{ TODO : 处理Screen.Forms[I] }
Break;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货