mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-07 20:17:13 +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;
|
||||
|
||||
if Handled then
|
||||
begin
|
||||
TheMessage.CharCode := 0;
|
||||
TheMessage.Result := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user