Mouse Exit для TForm

[JoanM]

Здравствуйте все!

Вопрос такой:
Как принять формой такие события мышкой, как наведение на форму и выход мышки за поля формы?
Если не понятно, то по-другому:
Как сделать альтернативу MouseEnter и MouseLeave компонента TLabel для TForm?

[BOBAH13]

Вариантов достаточно например 1е в голову влетело это таймер и WindowFromPoint Тем более форма это также контрол и получает такие сообщения CM_MOUSEENTER и CM_MOUSELEAVE ( вроде верно ) и пробывать ловить их через Application -> в нем есть обработчик сообщений. Я это так написал, проверять не проверял... Но поидеи должно получиться

[Stilet]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type

  TForm1 = class(TForm)
    procedure p(var w:TMessage); message CM_MOUSELEAVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.p(var w: TMessage);
begin
caption:=caption+'1';
end;

end.

[JoanM]

Не то...
Не работает должным образом.
А расскажи алгоритм WindowFromPoint!

[BOBAH13]

Этот способ немного не корректен
Ну на таймере проверяй возвращаемый хендл окна WindowFromPoint если он равен твоему окну иначе мышь не над ним... думаю сработает

[JoanM]

Блин! Что делать...

[BOBAH13]

Вот попробывал и что делаем в обработчике таймера:

var
  h: THandle;
begin
  h := WindowFromPoint(Mouse.CursorPos);
  while True do
  begin
    if GetParent(h) = 0 then
      Break;
    h := GetParent(h);
  end;
  if h = Handle then
    Caption := 'On mouse' else
    Caption := 'Off mouse';
end;

[B_N]

В обработчике WM_MOUSEMOVE (WM_NCMOUSEMOVE) вызывается TrackMouseEvent, которая в зависимости от флагов и наших желаний дает WM_NCMOUSEHOVER, WM_NCMOUSELEAVE, WM_MOUSEHOVER, WM_MOUSELEAVE.

[Stilet]

Блин! Что делать...

А чем CM_MOUSELEAVE; для формы не устраивает?

[BOBAH13]

А ты закинь панельку с Align = alClient
И пробуйте быстро выводить мышку за границы формы, посмотрю я на ваши сообщения