> PS: Not tested. This one yes! (replace in demo onmouseev with this):
procedure tmainfo.onmouseev(const sender: twidget; var ainfo: mouseeventinfoty); var i : integer; begin if ainfo.eventkind = ek_clientmouseenter then begin for i := 0 to ChildrenCount - 1 do if (children[i] is twidgetgrid) and (ainfo.pos.x >= twidgetgrid(children[i]).left) and (ainfo.pos.x <= twidgetgrid(children[i]).left + twidgetgrid(children[i]).width) and (ainfo.pos.y >= twidgetgrid(children[i]).top) and (ainfo.pos.y <= twidgetgrid(children[i]).top + theheight) then begin twidgetgrid(children[i]).setfocus(); exit; end; end; Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk