mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-09 05:58:51 +01:00
IDE: designer: set handled messages as done. Issue #33816
git-svn-id: trunk@58073 -
This commit is contained in:
parent
4d285fa24b
commit
634dc3c2e3
@ -2889,7 +2889,10 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
if Handled then
|
if Handled then
|
||||||
|
begin
|
||||||
TheMessage.CharCode := 0;
|
TheMessage.CharCode := 0;
|
||||||
|
TheMessage.Result := 1;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user