После дня мучения нашел способ как можно переключать формы кликая на страницы 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;
надо проверку делать(на то чтоб закрыть нужную страницу) - а это не получается...
Может у кого то есть какое нить предложение?? Как это можно сделать?