#277 Lost Focus after "GExperts Open File"

[Rhys]

Bug Details:
The bug is reproducible 100% of the time
The bug occurs on multiple machines

Steps:
1. Start Delphi 11 from the start menu
2. Open a Project
3. Open GExperts Open File (CTRL-U) to open a unit.
4. Input a Unit-Name and press enter

--> Unit opens but the focus is no more on Delphi
(The focus goes to the last application, i. e. firefox)

Another GExperts user gives a clue:
https://en.delphipraxis.net/topic/4604-delphi-1042-application-switch-after-using-open-file-expert/

Configuration:
OS: Windows 10 (1903) (kernel 10.0.19041 build 1466)
GExperts: GExpertsRS110.dll 1.3.20.3804 from 30.01.2022 16:15:50
IDE: ideRS11
ComCtl32: <unknown></unknown>

GExperts Experts:
1 = ASCIIChart
1 = BackupProject
1 = ClassBrowser
1 = CleanDirectories
0 = ClipboardHistory
1 = CodeLibrarian
1 = ComponentGrid
1 = RenameComponents
1 = ComponentsToCode
1 = CopyComponentNames
1 = ExpertManager
1 = FavoriteFiles
1 = FindComponentReference
1 = GrepSearch
1 = GrepResults
1 = HideComponents
1 = IDEMenuShortCuts
1 = MacroLibrary
1 = EditorExpertsMenu
1 = MessageDialog
1 = OpenFile
1 = PEInformation
0 = PerfectLayout
1 = ProcedureList
1 = ProjectDependencies
1 = ProjOptionSets
1 = CodeProofreader
1 = ReplaceComponents
0 = SetComponentProperties
1 = SetFocusControl
1 = SourceExport
1 = SetTabOrder
0 = ToDoList
1 = UsesClauseMgr
1 = BookmarksExpert
1 = InsertAutoToDo
1 = ReselectDesktop
1 = GrepNextItem
1 = GrepPrevItem
0 = MacroLibRecord
0 = MacroLibPlayback
1 = TKeyboardShortcutsExpert
1 = TAddDockWindowExpert
1 = SelectComponents
1 = GotoExpert
1 = FocusCodeEditor
1 = TFormHotkeysExpert
1 = FilterExceptions
1 = GrepResuls
1 = GrepMenuEntry
0 = TExplicitFilterExpert

[Rhys]

This bus is also for lower Delphi-Versions (i. e. 10.4)

[Achim Kalwa]

Patch suggested by merijnb
https://en.delphipraxis.net/topic/4604-delphi-1042-application-switch-after-using-open-file-expert/

[Thomas Mueller]

fixed in revision #3811