[Electronic_Arts]

После дня мучения нашел способ как можно переключать формы кликая на страницы Tabset - код как то жудковато получился - но по другому не пашет

Код:

1 2 3 4 5 6 7 8 9

Добавляем MDI окна procedure TForm1.Button1Click(Sender: TObject); begin tform2.create(self); tabset1.Tabs.Add(inttostr(form1.Tag)); (activemdichild as tform2).Caption:='New '+inttostr(form1.Tag); (activemdichild as tform2).Tag:=form1.Tag; form1.Tag:=form1.Tag+1; end;

Код:

1 2 3 4 5 6 7 8 9 10 11

Переключаемся между ними procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;   var AllowChange: Boolean); var   I: Integer; begin tabset1.Tag:=newtab; for i := 0 to MDIChildCount - 1 do if tabset1.Tag=mdichildren[i].Tag then mdichildren[i].SetFocus; end;

- но пока не получается закрывать форму вместе с страничкой в TabSet
потому до выполнения

Action:=caFree;

надо проверку делать(на то чтоб закрыть нужную страницу) - а это не получается...

Может у кого то есть какое нить предложение?? Как это можно сделать?