在拉撒路中，如何对TCustomControl后代进行离焦(跨平台)？
在拉撒路中，如何对TCustomControl后代进行离焦(跨平台)？
提问于 2021-09-27 23:01:16
我使用的是Lazarus 2.3.0，FPC 3.3.1
默认情况下，当您将控件放在窗体上时，它将获得焦点。假设您在TForm上有一个TMemo (通过Widgetset实现)。当窗体处于活动状态时，备忘录将获得焦点。那么，如何对备忘录进行离焦，使窗体显示时根本没有焦点控件呢？你可能会问“为什么？”只是为了学习，我试图理解为什么我不能做(或者不应该做)。
现在，我在Linux上尝试了以下替代方案，但没有成功：
// Form1 OnActive event
DefocusControl(Memo1, False);
DefocusControl(Memo1, True);
Form1.ActiveControl := nil;附言:值得注意的是，现在有一个7年期的相关主题在这里打开：
https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/25396
回答 1
Stack Overflow用户
发布于 2021-10-01 11:42:06
下面是我使用的变通方法。您可以通过对象检查器或使用以下命令动态禁用窗体上每个控件的TabStop属性：
for i := 0 to Form1.ComponentCount-1 do
if Form1.Components[i] is TWinControl then
(Form1.Components[i] as TWinControl).TabStop := False;
Form1.ActiveControl := nil;在FormActivate中使用DefocusControl对我来说根本不起作用，它什么也做不了。我猜这只是个bug。Removing (DefocusControl中的第二个参数)甚至在Lazarus中都没有实现。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/69354065
复制相关文章
相似问题
腾讯云开发者
