paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 12:59:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

TComboBox: prevent execution of DefaultAction on parentform (e.g. Button with Default/Cancel := True) when pressing Enter/Cancel when DroppedDown (Issue #0024819).

Browse Source 
git-svn-id: trunk@46762 -
This commit is contained in:
bart 2014-11-05 18:22:41 +00:00
parent e24d5e256c
commit 5f894bec77
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customcombobox.inc
View File

@ -479,7 +479,10 @@ begin
UserDropDown := ((Shift *[ssAlt] = [ssAlt]) and (Key = VK_DOWN)); UserDropDown := ((Shift *[ssAlt] = [ssAlt]) and (Key = VK_DOWN));
PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE]; PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE];
if PreventDropDown then if PreventDropDown then
begin
if DroppedDown then Key := VK_UNKNOWN; //prevent execution of DefaultAction (Delphi compatibility)
DroppedDown := False; DroppedDown := False;
end;
if AutoDropDown or UserDropDown or FReturnArrowState then if AutoDropDown or UserDropDown or FReturnArrowState then
begin begin
if PreventDropDown then if PreventDropDown then