TUICommandActionLink.Update() now checks if an action is assigned before calling inherited in order to prevent AVs.

Author: joachim.marder

Doc/Readme.txt

@@ -2,7 +2,12 @@ Please see http://www.bilsen.com/windowsribbon for detailed information
 about this library.
 
 Version history:
-5/27/2011:  Version 1.0: Initial release by Erik van Bilsen.
+XX/07/2105: TUIRibbon is now a control that can be placed on a VCL form.
+            TUIRibbonForm is deprecated and no longer needed. 
+01/14/2015: The project was adopted by JAM Software which continues maintaining
+            this project. A V2.0 is expected in summer 2015.            
+12/17/2012: Version 1.2: Added Delphi XE3 compatibility (thanks to Cherryl
+            Martin for pointing this out).
 7/30/2011:  Version 1.1: Added support for linking UI Commands to Delphi
             actions. See the "Text Pad with Action List" sample application
             and the web site for information on how to do this.
@@ -13,7 +18,5 @@ Version history:
             enable a more traditional user interface.
             These changes were inspired by contributions from
             Patrick Kolla-ten Venne. Many thanks for this! 
-12/17/2012: Version 1.2: Added Delphi XE3 compatibility (thanks to Cherryl
-            Martin for pointing this out).
-01/14/2015: The project was adopted by JAM Software which continues maintaining
-            this project. A V2.0 is expected in summer 2015.            
+5/27/2011:  Version 1.0: Initial release by Erik van Bilsen.
+            

Lib/UIRibbonActions.pas

@@ -26,6 +26,7 @@   TUICommandActionLink = class abstract (TActionLink)
     property Client: TUICommand read FClient;
   public
     constructor Create(const AClient: TUICommand); reintroduce;
+    function Update: Boolean; override;
   end;
 
   TUICommandEmptyActionLink = class(TUICommandActionLink)
@@ -157,6 +158,14 @@ procedure TUICommandActionLink.SetVisible(Value: Boolean);
     FClient.Enabled := False;
 end;
 
+function TUICommandActionLink.Update: Boolean;
+begin
+  if Assigned(Self.Action) then
+    Result := inherited Update()
+  else
+    Result := False;
+end;
+
 procedure TUICommandActionLink.SetHint(const Value: String);
 var
   I: Integer;