Код: Выделить всё
...
procedure MainPageChange(Sender: TObject);
var
i:integer;
begin
OldChange(MainWindow.Pages);
for i:=0 to MainWindow.Pages.PageCount-1 do // перебираем пэйджи в цикле
begin
if MainWindow.Pages.Pages[MainWindow.Pages.ActivePageIndex].Caption<>'Договор' // проверяем по имени - нужная ли это закладка
then
break // выходим из цикла, если не та...
else
begin
MainWindow.FormViews[MainWindow.Pages.ActivePageIndex].Form.Refresh; // выполняется, если условие совпало с именем указанной закладки.
break; // нам достаточно всего одного обновления. Выходим.
end;
end;
end;
...