Работа с панелями задач в PanApi

type
   TMyTask= class(TPanTask)
   private
     FWrite : boolean; // флажок редактирования карты (для примера основнной)
   public
     function    GetAction(comid : integer; run : integer) : HMAPACTION;
     procedure   ChangeData; override;
     destructor  Destroy; override;

     function PrepareMessage(amessage : integer; awparam : WPARAM;
       alparam : LPARAM; var retcode : integer) :integer;   override;  // переопределяем обработчик
  end;


function TMyTask.PrepareMessage(amessage: integer; awparam: WPARAM;
  alparam: LPARAM; var retcode: integer): integer;
var fflag : boolean;
begin
  if (amessage=$B040) and (awparam=0) then // отлавливаем событие активации кнопко на чужих задачах
  begin
    fflag := mapGetSiteEditFlag(FHMap, FHMap)<>0; // и всегда проверяем флаг
    if fflag<>FWrite then // если флаг сменился, зачит кто-то запустил задачу "Состав карты" и сменил флаг
    case byte(fflag) of    // обрабатывам (примитивно сообщением)
      1: ShowMessage('Основная карта в READ/WRITE');
      0: ShowMessage('Основная карта в READ ONLY');
    end;
    FWrite := fflag;  // запоминаем флаг
  end;

end;

procedure TMyTask.ChangeData;
begin
  inherited;
  FWrite := mapGetSiteEditFlag(FHMap, FHMap)<>0; // запоминаем начальное состояние статуса главной карты (можно Сита, можно всех ситов и.т.п)

end;

 // Извещение об изменени языка диалогов и меню
 procedure utsChangeLanguage(htask : HPANTASK; aparm : TTASKPARM);  stdcall;

//-----------------------------------------------------------------------------
// Установить доступность инструментов панели задачи
//-----------------------------------------------------------------------------
int CMultiPoligonTask::EnableAction(int comid, TCommandEnabler & comen)
{
   // Проверка: это не наша команда?
   if (GetAction(comid, 0) == 0)
      return(0);

   switch (comid)    // Установить (при необходимости) доступность кнопок
   {                // По умолчанию - все доступны
      case MULTIPOLIGON_TASK:
         // Если панель Редактора активна
         if (MapWindow->GetPanelState(PanelId))
            // Поставить галочку в меню
            comen.SetCheck(1);
         else
            // Убрать галочку
            comen.SetCheck(0);
         return 1;

      case MP_CHECK_TASK:
      case MP_CREATE_TASK:
         // Доступно, если на карте есть выделенные объекты
         if (mapIsVectorMapEdit(HMap) != 0 && mapGetTotalSelectFlag(HMap) != 0)
         {
            comen.Enable(1);
            AfxMessageBox(L"True");
         }
         else {
            comen.Enable(0);
            
         }
         return 1;
      case MP_MAIN_TASK:
      case MP_FIND_TASK:
      case MP_INSERT_TASK:
      case MP_EXCLUDE_TASK:
      case MP_DELETE_TASK:
      case MP_DIVIDE_TASK:
      case MP_INFO_TASK:
         // Доступно, если есть карта, которую можно редактировать
         if (mapIsVectorMapEdit(HMap) != 0) comen.Enable(1);
         else comen.Enable(0);
         return 1;
      case MP_ERROT_LIST:
      case MP_EXIT:
         // Установить, что доступны всегда
         comen.Enable(1);
         return 1;
   }

   return 1;
}