Re: [MSEide-MSEgui-talk] Fonts

> 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

Re: [MSEide-MSEgui-talk] Fonts

Hello Med. for i:= 0 to form1.childrencount - 1 do begin if form1.children[i] is twidgetgrid then if (ainfo.pos.x and . ) then twidgetgrid( form1.children[i].setfocus exit else PS: Not tested. Fre;D -- Sent from:

Re: [MSEide-MSEgui-talk] Fonts

Hi Fred, Many thanks for your help. I wanted to do an universal solution but I do not know how to get the count of components in the current form and of course the current object . There is not a guide to mseide class I want to write something like For i := 1 to n

Re: [MSEide-MSEgui-talk] Fonts

Hello Med. Here demo of working focus-frame-caption: demo_focusframecaption.zip And here the video of the result: focus_framecaption.mp4

Re: [MSEide-MSEgui-talk] Fonts

Hello Fred, In MouseEvent Procedure we have to search the object to setfocus to . I do not know the structure of ainfo does it contain the object selected? Regards Med. De : fredvs Envoyé : vendredi 9 août 2019 00:35 À :