paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 14:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: comment

Browse Source 
git-svn-id: trunk@42085 -
This commit is contained in:
mattias 2013-07-14 06:37:06 +00:00
parent 5c16922af0
commit 5f1bb4c689
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -5718,6 +5718,8 @@ begin
Result := False; Result := False;
for I := 0 to ControlCount - 1 do for I := 0 to ControlCount - 1 do
begin begin
// for Delphi compatibility send it to all controls,
// even those that can not focus or are disabled
Result := Controls[I].DialogChar(Message); Result := Controls[I].DialogChar(Message);
if Result then Exit; if Result then Exit;
end; end;