From e1ea39a6629c43a0d275dc726150c08e83ef14c0 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:19 +0000 Subject: [PATCH] added Application OnKeyDownHandler git-svn-id: trunk@2377 - --- lcl/include/wincontrol.inc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 5713a6943e..37e7ee460e 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -1431,7 +1431,10 @@ begin KeyDown(CharCode, ShiftState); if CharCode = VK_UNKNOWN then Exit; end; + if Application<>nil then + Application.NotifyKeyDownHandler(CharCode, ShiftState); end; + Result := False; end; @@ -2593,6 +2596,9 @@ end; { ============================================================================= $Log$ + Revision 1.127 2003/04/11 10:23:23 mattias + added Application OnKeyDownHandler + Revision 1.126 2003/04/10 09:22:42 mattias implemented changing dependency version