[poli-smen]

Сообщение от nixon232

т.е. перетягивание формы за объект. За любой другой объект нормально, а за грид не тянется. т.е тянется, но с ошибкой.

Я так понимаю тебе нужно чтобы StringGrid был прозрачным для мышки - тогда можешь ловить сообщение WM_NCHITTEST и возвращать в ответ, что StringGrid везде прозрачный (HTTRANSPARENT).

Т.е. тот новый модуль который ты создал расширится до примерно такого варианта:

Код:

unit HackGridsUnit;

interface

uses Windows, Messages, Grids;

type
  TStringGrid = class(Grids.TStringGrid)
  protected
    procedure WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
    procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
  end;

implementation

procedure TStringGrid.WMMOUSEWHEEL(var Msg: TMessage);
begin
  Msg.Result := 0;
end;

procedure TStringGrid.WMNCHITTEST(var Msg: TMessage);
begin
  Msg.Result := HTTRANSPARENT;
end;

end.