[HeDiBo]

Can you explain which problem this change solves that is not handled by the OnChanging and OnChange events?

[Rafał Drzewiecki]

Hi, OnChanging and OnChange not handled:

PageControl.ActivPageIndex := 2;
PageControl.ActivPageIndex := 1;

and

PageControl.ActivPageIndex = 3;
PageControl.Pages[2].Free;

[HeDiBo]

Very simple to build this yourself:

procedure SetActiveTab(PC: TsPageControl; PageNr: Integer);
var
   Accept: Boolean;
begin
   PC.OnChanging(PC, Accept);
   if not Accept then Exit;
   PC.ActivePageIndex := PageNr;
   PC.OnChange(PC);
end;

[Rafał Drzewiecki]

Yes ofcurse, This procedure is simple to write but you have to remember about it. This is only for changing tabs programmatically. It is necessary to write one more for TabSheet.Free;

[Author]

Posts