<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 />