<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
In Delphi, this can be accomplished by TForm.ActiveControl := nil.<br>
<br>
In Lazarus world, there is no substitute yet. The closest seems to
be Windows.SetFocus(0).<br>
<br>
Bug report: <a class="moz-txt-link-freetext" href="https://bugs.freepascal.org/view.php?id=25396">https://bugs.freepascal.org/view.php?id=25396</a><br>
<br>
<br>
<div class="moz-cite-prefix">On 08/07/2017 22:22, hfiandor via
Lazarus wrote:<br>
</div>
<blockquote type="cite"
cite="mid:!&!AAAAAAAAAAAYAAAAAAAAAMTW5xvE3j9Lmco8C3UR7kbCgAAAEAAAAPE8ouzfpO5GrsFVQpoKwd4BAAAAAA==@ceniai.inf.cu">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Word 14 (filtered
medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
span.EstiloCorreo17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
<div class="WordSection1">
<p class="MsoNormal"><span lang="ES">Dear colleagues Estimados
listeros:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="ES"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">I have a form with a
button that get focus to make easy the action. When the
action is finished, the button remain with focus, and I want
that this focus (borders with dotted lines) disappear.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Somebody sent to me the
command to be included in the proper line of the program,
but I missed, and now I need this.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Please, help me.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal">Tengo una forma con un botón que coge foco
para viabilizar la operación. Cuando la acción prevista se
termina, el botón muestra el foco (no lo pierde), como yo
deseo.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Alguien con muy buena intención me mandó el
comando que lo lograba, pero yo lo perdí, y ahora lo necesito
de nuevo.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Por favor, tírenme alguna ayuda.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="mso-fareast-language:ES-MX"
lang="ES">Saludos<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:ES-MX"
lang="ES">Ing. Héctor F. Fiandor Rosario<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="ES"><o:p> </o:p></span></p>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
</blockquote>
<br>
</body>
</html>