//....
TfmTemplateOfInventory = class(TForm)
//...
private
procedure WMLBUTTONDOWN(var msg: TMessage); message WM_LBUTTONDOWN;
public
 { Public declarations }
end;


//...
procedure TfmTemplateOfInventory.WMLBUTTONDOWN(var msg: TMessage);
begin
inherited;
  case msg.Msg of
    WM_LBUTTONDOWN:
      begin
      ShowMessage('Работает');
      end
  end;

end;

procedure TControl.WndProc(var Message: TMessage);
var
  Form: TCustomForm;
  KeyState: TKeyboardState;  
  WheelMsg: TCMMouseWheel;
begin
  if (csDesigning in ComponentState) then
  begin
    Form := GetParentForm(Self);
    if (Form <> nil) and (Form.Designer <> nil) and
      Form.Designer.IsDesignMsg(Self, Message) then Exit
  end;
...

procedure WMLBUTTONDOWN(var msg: TMessage); message WM_LBUTTONDOWN;

AddMethod(@Object, WM_LBUTTONDOWN, @ThookMessage.WMLBUTTONDOWN);

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы