paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: calling of CM_EXIT can cause other focus changes in the user code, so we need to change FLastFocusedControl before the call (based on demo of Zeljan)

Browse Source 
git-svn-id: trunk@25309 -
This commit is contained in:
paul 2010-05-11 00:43:11 +00:00
parent d5d3103d45
commit 47bd1163f8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customform.inc
View File

@ -2138,6 +2138,7 @@ function TCustomForm.SetFocusedControl(Control: TWinControl): Boolean;
var
LastState: TFocusState;
Tmp: TWinControl;
begin
// send cm_exit, cm_enter messages
// cm_exit must be sent to all controls from lastfocusedcontrol to the first parent which contains control
@ -2147,10 +2148,13 @@ function TCustomForm.SetFocusedControl(Control: TWinControl): Boolean;
while not FLastFocusedControl.ContainsControl(Control) do
begin
LastState := SaveFocusState;
FLastFocusedControl.Perform(CM_EXIT, 0, 0);
// calling of CM_EXIT can cause other focus changes - so FLastFocusedControl can change after the call
// therefore we need to change it before the call
Tmp := FLastFocusedControl;
FLastFocusedControl := Tmp.Parent;
Tmp.Perform(CM_EXIT, 0, 0);
if SaveFocusState <> LastState then
Exit(False);
FLastFocusedControl := FLastFocusedControl.Parent;
end;
while FLastFocusedControl <> Control do