子窗口选择的问题请教(0分)

  • 主题发起人 主题发起人 ImageEn
  • 开始时间 开始时间
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)这个窗口?
 
不是你那样表示的.....
for i:= 0 to self.MdiChildCount -1do
begin
if (mdichilds as 你的mdi类).name ='你要查的' then
去显示吧
end;
 
同意楼上.
可以考虑Form.Tag
for i := 0 to Screen.FormCount - 1do
if Screen.Forms.Name = '' then
 
后退
顶部