On 22.05.2016 14:13, Vojtěch Čihák wrote:
procedure TMyTabSheet.HookSelection(const ASelection:
TPersistentSelectionList);
begin
if assigned(FMyPageControl) and (ASelection.IndexOf(self)>=0) then
FMyPageControl.TabIndex:= FMyPageControl.Pages.IndexOf(self);
end;
+ You also should check for selecting child controls (e.g. the user
selects a button in the page). See
TObjectInspectorDlg.DefSelectionVisibleInDesigner from r52344.
Ondrej
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus