mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 11:40:35 +02:00
LCL: Fixed OnClick event not triggered for a TSpeedButton on a fresh created form when inside a TGroupBox. Issue #26638
git-svn-id: trunk@58237 -
This commit is contained in:
parent
6bb838705f
commit
7da1636ffa
@ -3652,7 +3652,7 @@ end;
|
||||
|
||||
procedure TControl.WMCancelMode(var Message: TLMessage);
|
||||
begin
|
||||
MouseCapture := False;
|
||||
SetCaptureControl(nil);
|
||||
end;
|
||||
|
||||
function TControl.IsEnabledStored: Boolean;
|
||||
|
Loading…
Reference in New Issue
Block a user