paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 03:01:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

only execute button action when enabled (fixes bug #676)

Browse Source 
git-svn-id: trunk@7048 -
This commit is contained in:
micha 2005-04-01 09:26:56 +00:00
parent 8f4536230c
commit 474811f1cd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/application.inc
View File

@ -1334,7 +1334,8 @@ begin
Form := GetParentForm(AControl); Form := GetParentForm(AControl);
if Form<>nil then begin if Form<>nil then begin
if (anoReturnForDefaultControl in Navigation) if (anoReturnForDefaultControl in Navigation)
and (Form.DefaultControl <> nil) then and (Form.DefaultControl <> nil)
and Form.DefaultControl.Enabled then
begin begin
//debugln('TApplication.ControlKeyUp VK_RETURN ', Acontrol.Name); //debugln('TApplication.ControlKeyUp VK_RETURN ', Acontrol.Name);
Form.DefaultControl.ExecuteDefaultAction; Form.DefaultControl.ExecuteDefaultAction;
@ -1453,6 +1454,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.114 2005/04/01 09:26:56 micha
only execute button action when enabled (fixes bug 676)
Revision 1.113 2005/03/31 20:07:44 micha Revision 1.113 2005/03/31 20:07:44 micha
mainform may also be an MDI form, or a stay on top form (fixes bug 656) mainform may also be an MDI form, or a stay on top form (fixes bug 656)