paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 21:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't check shortcuts on disabled forms

Browse Source 
git-svn-id: trunk@26774 -
This commit is contained in:
paul 2010-07-22 08:20:10 +00:00
parent df4dcb0147
commit 085918972f
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/application.inc
View File

@ -1962,26 +1962,27 @@ begin
begin
FOnShortcut(Message, Result);
if Result then
exit;
Exit;
end;
// next: if there is a modal form, let it handle the short cut
ModalForm:=Screen.GetCurrentModalForm;
if ModalForm<>nil then begin
Result := ModalForm.IsShortcut(Message);
end else begin
// there is no modal form
// let the current focused form handle the shortcut
if Screen.ActiveCustomForm<>nil then begin
ModalForm := Screen.GetCurrentModalForm;
if Assigned(ModalForm) and IsWindowEnabled(ModalForm.Handle) then
Result := ModalForm.IsShortcut(Message)
else
begin
// no modal form - let the current focused form handle the shortcut
if Assigned(Screen.ActiveCustomForm) and IsWindowEnabled(Screen.ActiveCustomForm.Handle) then
begin
Result := Screen.ActiveCustomForm.IsShortcut(Message);
if Result then exit;
if Result then Exit;
end;
// let the main form handle the shortcut
if (MainForm<>nil) and (Screen.ActiveCustomForm<>MainForm) then begin
if Assigned(MainForm) and (Screen.ActiveCustomForm <> MainForm) and IsWindowEnabled(MainForm.Handle) then
begin
Result := FMainForm.IsShortcut(Message);
if Result then exit;
if Result then Exit;
end;
end;
end;