Author: Tomas Rutkauskas

How to find the TTabSheet in a pagecontrol, an active control is sitting on

Answer:

The forms ActiveControl property points to the active control on the form (if any, 
it may be Nil under certain circumstances). If you want to find the tabsheet in a 
pagecontrol, this controls is sitting on, you walk up its parent chain:

1   var
2     ctrl: TWinControl;
3   begin
4     if ActiveControl <> nil then
5     begin
6       ctrl := ActiveControl.Parent;
7       while (ctrl <> nil) and not (ctrl is TTabsheet) do
8         ctrl := ctrl.parent;
9       if ctrl <> nil then
10  {... found the tabsheet, can cast it as TTabsheet( ctrl ) to access 
11  its properties}