TGraphicControl и сообщения

[NEoMASTERR]

Здравствуйте, Мой компонент наследник от TGraphicControl активно принимал и обрабатывал сообщения мышки, пока я не вынес код в отдельный юнит. Почему перестал? Подскажите.

[ZuBy]

код покажи

[NEoMASTERR]

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

код покажи

Боюсь там очень много кода, суть в том что я в основном юните ничего не менял, лишь перенес в другой

unit Unit1;
///
procedure TForm1.FormCreate(Sender: TObject);
begin
  GL:=TMyGLEngine.create(form1);
  GL.Anchors:=[akLeft,akTop,akRight,akBottom];
  GL.Parent:=form1;
  //GL.BackgroundColor:=clBlack;
  GL.Left:=0;
  GL.top:=0;
  GL.Width:=form1.clientWidth;
  GL.Height:=Form1.clientHeight;
  GL.init;
  Form1.WindowState:=wsMaximized;
end;

Это из основного юнита, всё что там есть

unit MyGlStock;
interface
//
 TMyGLEngine = class(TGraphicControl)
    private
    /////////////////
    /////////////////
  protected
    procedure WndProc(var msg:TMessage);override;
    procedure wmlbuttondown(var message:twmmouse);message wm_lbuttondown;
    procedure wmldblclick(var message:TWMMouse);message WM_LBUTTONDBLCLK;
    procedure wmlbuttonup(var message:twmmouse);message wm_lbuttonup;
    procedure wmmousemove(var message:twmmousemove);message wm_mousemove;
    procedure cmmouseenter(var message:tmessage);message cm_mouseenter;
    procedure cmmouseleave(var message:tmessage);message cm_mouseleave;
    procedure wmEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;

Может потому что код в блоке protected?

P.S. Я конечно могу обрабатывать нажатия через GetAsyncKeyState но думаю лишняя нагрузка ни к чему, Передвижение мышки ловлю по CM_DOCKNOTIFICATION, Но всё же мне интересно что случилось)

[ZuBy]

а разве нельзя было сделать

published
    property OnClick;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseEnter;
    property OnMouseLeave;

и так далее?

[NEoMASTERR]

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

а разве нельзя было сделать

published
    property OnClick;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseEnter;
    property OnMouseLeave;

и так далее?

  published
    //property ObjectList:TMyGlObjectList;
    property BackgroundColor:tcolor read FBackgroundColor write FBackgroundColor default clBtnFace;
    {events}
    property onclick;
    property ondblclick;
    property onmousedown;
    property onmouseup;
    property Background : TBitmap read GetFon write SetFon;
    property onmouseenter:tnotifyevent read fonmouseenter write fonmouseenter;
    property onmouseleave:tnotifyevent read fonmouseleave write fonmouseleave;
   // property OnMouseMove:TOnMouseMove read FOnMouseMove write FOnMouseMove;

Это всё есть, суть в том что сообщения не получает компонент, хотя раньше получал.
Судя по описаниям в интернетах TGraphicControl вообще не может получать сообщения, как же он тогда вообще работал час назад?))

[ZuBy]

   procedure cmmouseenter(var message:tmessage);message cm_mouseenter;
   procedure cmmouseleave(var message:tmessage);message cm_mouseleave;

эти сообщения он обрабатывает точно, а зачем отлавливать сообщения?
перекрывайте основные события компонента, я так делал

вот например

procedure TZMSMediaButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if not Enabled then
    exit;
  fState := mbsDown;
  Paint;
  inherited;
end;

[NEoMASTERR]

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

   procedure cmmouseenter(var message:tmessage);message cm_mouseenter;
   procedure cmmouseleave(var message:tmessage);message cm_mouseleave;

эти сообщения он обрабатывает точно, а зачем отлавливать сообщения?
перекрывайте основные события компонента, я так делал

Дело в том что он перестал обрабатывать любые сообщения, даже WM_Paint и я не могу понять что с ним произошло, рисую я по таймеру так что это не критично, обрабатывается лишь CM_DOCKNOTIFICATION

[Аватар]

Выложи юнит с компонентом

[NEoMASTERR]

Всё нашёл ошибку, случайно закомментировал inherited

procedure TMyGLEngine.WndProc(var msg: TMessage);
begin
  inherited;

[Аватар]

в основном юните ничего не менял, лишь перенес в другой

случайно закомментировал inherited

тут явные происки полтергейста