<p style="padding:0 0 0 0; margin:0 0 0 0;">With a small correction: it must be hooked only in design time.</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"><span style="font-size: 10pt;"> </span></p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">constructor TMyTabSheet.Create(TheOwner: TComponent);</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">begin</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">  ...</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">  if csDesigning in ComponentState then</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">    GlobalDesignHook.AddHandlerSetSelection(@HookSelection);</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">end;  </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

V.<br />
 _______________________________________________<br />
 Lazarus mailing list<br />
 Lazarus@lists.lazarus.freepascal.org<br />
 <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br />