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

LCL: Fixed OnClick event not triggered for a TSpeedButton on a fresh created form when inside a TGroupBox. Issue #26638

Browse Source 
git-svn-id: trunk@58237 -
This commit is contained in:
michl 2018-06-12 20:26:25 +00:00
parent 6bb838705f
commit 7da1636ffa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -3652,7 +3652,7 @@ end;
procedure TControl.WMCancelMode(var Message: TLMessage); procedure TControl.WMCancelMode(var Message: TLMessage);
begin begin
MouseCapture := False; SetCaptureControl(nil);
end; end;
function TControl.IsEnabledStored: Boolean; function TControl.IsEnabledStored: Boolean;