paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 22:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't use SendMessage(Handle) - use perform to prevent handle creation

Browse Source 
git-svn-id: trunk@25257 -
This commit is contained in:
paul 2010-05-08 16:36:59 +00:00
parent 591e6c3709
commit 9f0a3a69df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -2210,7 +2210,7 @@ begin
while not FLastFocusedControl.ContainsControl(Control) do while not FLastFocusedControl.ContainsControl(Control) do
begin begin
LastState := SaveFocusState; LastState := SaveFocusState;
SendMessage(FLastFocusedControl.Handle, CM_EXIT, 0, 0); FLastFocusedControl.Perform(CM_EXIT, 0, 0);
if SaveFocusState <> LastState then if SaveFocusState <> LastState then
Exit; Exit;
FLastFocusedControl := FLastFocusedControl.Parent; FLastFocusedControl := FLastFocusedControl.Parent;
@ -2220,7 +2220,7 @@ begin
begin begin
FLastFocusedControl := NextChildControl(FLastFocusedControl, Control); FLastFocusedControl := NextChildControl(FLastFocusedControl, Control);
LastState := SaveFocusState; LastState := SaveFocusState;
SendMessage(FLastFocusedControl.Handle, CM_ENTER, 0, 0); FLastFocusedControl.Perform(CM_ENTER, 0, 0);
if SaveFocusState <> LastState then if SaveFocusState <> LastState then
Exit; Exit;
end; end;