From aa507b9cb7c18b9ab9b17f39cdc90554474224b4 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 24 Jul 2005 08:01:57 +0000 Subject: [PATCH] fixed application modal for shortcut delegation from Martin Smat git-svn-id: trunk@7413 - --- lcl/include/application.inc | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lcl/include/application.inc b/lcl/include/application.inc index 9a307c001c..7124e5818b 100644 --- a/lcl/include/application.inc +++ b/lcl/include/application.inc @@ -1314,7 +1314,7 @@ begin // next: if there is a modal form, let it handle the short cut ModalForm:=Screen.GetCurrentModalForm; if ModalForm<>nil then begin - Result := FMainForm.IsShortcut(Message); + Result := ModalForm.IsShortcut(Message); end else begin // there is no modal form @@ -1476,6 +1476,9 @@ end; { ============================================================================= $Log$ + Revision 1.127 2005/07/24 08:01:57 mattias + fixed application modal for shortcut delegation from Martin Smat + Revision 1.126 2005/07/22 12:44:04 vincents initiliased Result of DispatchAction