Событие: Отведение мышки Опции

[Koresh]

Каким образом можно реализовать для Image'а например?

[volvo]

Наследуйся от стандартного TImage и лови CM_MOUSELEAVE:

Type
  TMyImage = class(TImage)
   
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

  end;

procedure TMyImage.CMMouseLeave(var msg: TMessage); 
begin 
  inherited; 
  { действия на покидание мышью области компонента }
end;