Каталог решений - Сабклассинг главного окна 1С

Материал из Википедии — свободной энциклопедии:

Сабклассинг — процесс переопределения оконной процедуры, которую Windows назначает по умолчанию.
Назначение технологии
Данная технология применяется в том случае, если требуется наделить окно какой-либо специфической реакцией на сообщение Windows. При помощи сабклассинга можно организовывать контроль ввода, блокировку закрытия окна. В целом самым важным здесь является то, что при необходимости программист получает полный контроль над поведением окна.
Преимущества сабклассинга
В Windows есть довольно богатый выбор элементов управления, однако вы можете столкнутся c ситуацией, когда нужно дополнить поведение элемента управления. И здесь есть затруднение: процедуру, которую Windows назначает элементу управления изменить саму по себе невозможно. Есть два пути:
Написать элемент управления заново
Воспользоваться возможностью переопределения оконной процедуры у данного элемента управления, что и является сабклассингом.
Недостатки первого подхода в том, что фактически программист вынужден заново «изобретать велосипед». Преимущество же сабклассинга в том, что он позволяет программисту сосредоточится только на действительно нужных ему Windows сообщениях, а остальные передать стандартной оконной процедуре.

Вот примерчик (из кода MiracleV8.dll ):

var Old1CWindowProc: Pointer;

function New1CWindowProc(WindowHandle: hWnd;
  TheMessage: WParam;
  ParamW: WParam;
  ParamL: LParam): LongInt
{$IFDEF WIN32} stdcall;
{$ELSE}; export;
{$ENDIF}
var b: array[0..255] of AnsiChar;
begin
  // анализируем сообщения
 // тут, к примеру, реакция на нажатие пункта меню
  if TheMessage = WM_COMMAND then begin
    // в ParamW — идентификатор пункта, в переменную b помещаем строковое значение пункта
    GetMenuString(GetMenu(WindowHandle), ParamW, @b, 256, MF_BYCOMMAND);
    // генерим внешнее событие для 1С
    pEvent._AddRef;
    pEvent.ExternalEvent(‘MiracleV8_1C’, ‘MENUSELECT’, IntToStr(ParamW) + ‘,’ + StrPas(b));
  end;
  if TheMessage = WM_WINDOWPOSCHANGING then begin
    // тут отслеживаем (если надо) перестройку меню, в 7.7 оно постоянно меняется
    pEvent._AddRef;
    pEvent.ExternalEvent(‘MiracleV8_1C’, ‘MENURECREATE’, IntToStr(ParamW));
  end;
  // в общем, что хотим — то и творим 😉
 // передаем управление родной оконной процедуре
  New1CWindowProc := CallWindowProc(Old1CWindowProc, WindowHandle, TheMessage,
    ParamW, ParamL);
end;

procedure TMiracleClass.SetNew1CWindowProc;
begin
  // запоминаем указатель на родную оконную процедуру и переопределям на новую
  Old1CWindowProc := Pointer(SetWindowLong(h1C, GWL_WNDPROC, LongInt(@New1CWindowProc)));
end;

Примечания:
h1C — хэндл главного окна 1С, полученный любым образом, например, через
интерфейс IExtWndsSupport.
pEvent — интерфейс IAsyncEvent
(оба описаны в ТСВК)