I
ImageEn
Unregistered / Unconfirmed
GUEST, unregistred user!
var
ChildNum:integer;//=-1
procedure TMainFrm.CreateChildForm(const ChildName: string);
var Child: TChildFrm;
begin
ChildNum:=ChildTag+1;
Child := TChildFrm.Create(Application);
Child.Name:= 'Child'+inttostr(ChildNum);
end;
procedure TMainFrm.TabSet1Click(Sender: TObject);
var
Index: Integer;
begin
Index := TabSet1.TabIndex ;
TChildFrm('Child'+inttostr(Index)).BringToFront ;
//
end;
我想实现象wps多文档处理窗口一样,单击下面一横排的标签中的某个标签,上面文档窗口显示出相应的文档,我在新子窗口创建时命名与标签命名序号一致,单击标签时就知道了文档子窗口的名称,可运行时单击时出错。
请问如何表达'Child'+inttostr(Index)这个窗口?
ChildNum:integer;//=-1
procedure TMainFrm.CreateChildForm(const ChildName: string);
var Child: TChildFrm;
begin
ChildNum:=ChildTag+1;
Child := TChildFrm.Create(Application);
Child.Name:= 'Child'+inttostr(ChildNum);
end;
procedure TMainFrm.TabSet1Click(Sender: TObject);
var
Index: Integer;
begin
Index := TabSet1.TabIndex ;
TChildFrm('Child'+inttostr(Index)).BringToFront ;
//
end;
我想实现象wps多文档处理窗口一样,单击下面一横排的标签中的某个标签,上面文档窗口显示出相应的文档,我在新子窗口创建时命名与标签命名序号一致,单击标签时就知道了文档子窗口的名称,可运行时单击时出错。
请问如何表达'Child'+inttostr(Index)这个窗口?