diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index d979358823..1c61213e07 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -657,6 +657,8 @@ end;
 procedure TComponentPalette.SelectionToolClick(Sender: TObject);
 begin
   SelectAButton(TSpeedButton(Sender));
+  if Assigned(OnClassSelected) then
+    OnClassSelected(Self);
 end;
 
 procedure TComponentPalette.ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;