From 5f1bb4c689875bf464ab4dbe732b079fbb1be55e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 14 Jul 2013 06:37:06 +0000
Subject: [PATCH] LCL: comment

git-svn-id: trunk@42085 -
---
 lcl/include/wincontrol.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 9988b93661..5d1bfa8a83 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5718,6 +5718,8 @@ begin
   Result := False;
   for I := 0 to ControlCount - 1 do
   begin
+    // for Delphi compatibility send it to all controls,
+    // even those that can not focus or are disabled
     Result := Controls[I].DialogChar(Message);
     if Result then Exit;
   end;