How to really prevent a control from losing focus?

[zeljko]

On the other hand I would considers this a serious matter on both Gtk2 and Qt5, since that ButtonClick should not be possible at all. Looks like Windows is the only reliable platform here - and I always thought focus issues were a mess there.

Yes. qt5/Linux almost worked but the fact that the Button1Click 'bleeds' through when focus is prevented is indeed a serious issue.

I haven't had the chance yet to test qt5 on Windows.

If you think it's but please open an issue against qt5/qt6. Qt probably sends Clicked() signal and we are processing it without check if button is focused (of course must check if clicked() comes from mouse event, not from eg shortcut).

[zeljko]

https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/41237

[zeljko]

Fixed, you can test qt5 and qt6

[Sieben]

Thanks a lot, zeljko. rvk, could you please have a look...? And I want to remind everyone that possible workarounds for Gtk2 are mentioned at the bottom of page 1 of this thread.

[zeljko]

Just a few remarks on possible workarounds (and to keep this topic floating): you can reliably prevent the Button1Click handler to be executed by placing this right at the top of it's code:

Code: Pascal  [Select][+][-]

1.   {$ifdef LCLGtk2}
2.   if not Button1.Focused then Exit;
3.   {$endif}  
4.  

and you can make the SelectAll of Edit2 (all this refers to the test project included above) work by inserting this between SetFocus and SelectAll:

Code: Pascal  [Select][+][-]

1.   Edit2.SetFocus;
2.   {$ifdef LCLGtk2}
3.   Application.ProcessMessages;
4.   {$endif}
5.   Edit2.SelectAll;  
6.  

I did not test with Qt5 so far.

Since qt5/qt6 is fixed, please open an issue against gtk2 and attach example project.