onMouseLeave на TImage или TForm

[skalt12]

привет всем, вопрос такой появился, вот смотрите, создал компонент Image свой, с поддержкой onMouseLeave, все работает, но чуть-чуть не получается реализовать реакцию на уход мыши... то есть, навожу на определенный фрагмент на форме, появляется кнопочка, например, убираю мышь с этого фрагмента, кнопочка исчезает, а если, например, убирать мышь с этого фрагмента не на форму, а куда-то вне ее сразу, то кнопочка не исчезает...

procedure TForm1.bgImgMouseEnter(Sender: TObject);
begin
  barImg.Show;
end;

procedure TForm1.bgImgMouseLeave(Sender: TObject);
begin
  barImg.Hide;
end;

может что подскажете?

[xakkkkker]

Не совсем понял........А как работает Моус лив? Обработай такие событие как Mouse Move (Перемещение). Посмотри вложение может чем поможет

[mutabor]

А какая версия Delphi? В новых дельфях эти события есть, если их нет к примеру у TImage, то просто опубликуй их (published) от предков.

[skalt12]

собственно, версия 7... код компаненты вот:

unit ImageEx;

 interface

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

 type
   TImageEx = class (TImage)
   private
     { Private declarations }
     FOnMouseLeave: TNotifyEvent;
     FOnMouseEnter: TNotifyEvent;
     procedure CMMouseEnter(var msg: TMessage);
       message CM_MOUSEENTER;
     procedure CMMouseLeave(var msg: TMessage);
       message CM_MOUSELEAVE;
   protected
     { Protected declarations }
     procedure DoMouseEnter; dynamic;
     procedure DoMouseLeave; dynamic;
   public
     { Public declarations }
   published
     { Published declarations }
     property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
     property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
   end;

 procedure Register;

 implementation

 procedure Register;
 begin
   RegisterComponents('Additional', [TImageEx]);
 end;

 { TImageEx }

 procedure TImageEx.CMMouseEnter(var msg: TMessage);
 begin
   DoMouseEnter;
 end;

 procedure TImageEx.CMMouseLeave(var msg: TMessage);
 begin
   DoMouseLeave;
 end;

 procedure TImageEx.DoMouseEnter;
 begin
   if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
 end;

 procedure TImageEx.DoMouseLeave;
 begin
   if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
 end;

 end.

Поступил более ламерским путём - добавил на форму свой компонент Image, по краям оставил место пустое, когда на этот компонент наводим мышью, появляется нужный объект, когда мышь попадает в область вне этого Image - объект исчезает.. Но только вот, очередная проблема - если быстро-быстро мышь убрать с формы, то обьект не исчезает..

[Stilet]

если быстро-быстро мышь убрать с формы, то обьект не исчезает..

Да есть такой прикол. Я иногда при OnMouseEnter запускаю параллельно поток (или таймер кому как нравится) и в потоке проверяю где мышка.
Тогда все работает более менее, и без OnMouseLeave

[skalt12]

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

Да есть такой прикол. Я иногда при OnMouseEnter запускаю параллельно поток (или таймер кому как нравится) и в потоке проверяю где мышка.
Тогда все работает более менее, и без OnMouseLeave

ну да... тоже вариант

[mutabor]

Вот как это сделано в стандарте

private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
...

{$IF DEFINED(CLR)}
procedure TControl.DoMouseEnter;
begin
  FParent.Perform(CM_MOUSEENTER, meTControl, FParent.FControls.IndexOf(Self));
end;

procedure TControl.DoMouseLeave;
begin
  FParent.Perform(CM_MOUSELEAVE, meTControl, FParent.FControls.IndexOf(Self));
end;
{$IFEND}

procedure TControl.CMMouseEnter(var Message: TMessage);
begin
  if FParent <> nil then
{$IF DEFINED(CLR)}
    DoMouseEnter;
  if (Message.WParam = 0) then
{$ELSE}
    FParent.Perform(CM_MOUSEENTER, 0, Longint(Self));
  if (Message.LParam = 0) then
{$IFEND}
  begin
    if Assigned(FOnMouseEnter) then
      FOnMouseEnter(Self);

    if ShowHint and not (csDesigning in ComponentState) then
      if CustomHint <> nil then
        CustomHint.ShowHint(Self);
  end;
end;

procedure TControl.CMMouseLeave(var Message: TMessage);
begin
 if FParent <> nil then
{$IF DEFINED(CLR)}
   DoMouseLeave;
  if (Message.WParam = 0) then
{$ELSE}
    FParent.Perform(CM_MOUSELEAVE, 0, Longint(Self));
  if (Message.LParam = 0) then
{$IFEND}
  begin
    if Assigned(FOnMouseLeave) then
      FOnMouseLeave(Self);

    if ShowHint and not (csDesigning in ComponentState) then
      if CustomHint <> nil then
        CustomHint.HideHint(Self);
  end;
end;