paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 16:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Additional check on action.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-13 10:35:39 +02:00
parent 68acd78640
commit 15ba298bae
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/action.inc
View File

@ -45,6 +45,8 @@ end;
function TBasicActionLink.Execute(AComponent: TComponent): Boolean;
begin
if not Assigned(FAction) then
exit;
FAction.ActionComponent := AComponent;
try
Result := FAction.Execute;