[Electronic_Arts]

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

Код:

Добавляем 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;

Код:

Переключаемся между ними
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;

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

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