Нужно создать свой компонент, и в нем реализовать события OnMouseEnter и OnMouseLeave
Надеюсь, устанавливать компоненты умеете? а если нет, то найти в гугле проще простого
А вот код класса компонента.
Вместо TImage используйте его.
И на события OnMouseEnter и OnMouseLeave выставляйте нужные вам действия.
unit HighlightImage;
interface
uses ExtCtrls, Messages, Controls, Classes;
type
THighlightImage = class(TImage)
private
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
public
procedure MouseEnter(var msg : TMessage); message CM_MOUSEENTER;
procedure MouseLeave(var msg : TMessage); message CM_MOUSELEAVE;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
{ THighlightImage }
procedure THighlightImage.MouseEnter(var msg: TMessage);
begin
if Assigned(FOnMouseEnter) then FOnMouseEnter(self);
end;
procedure THighlightImage.MouseLeave(var msg: TMessage);
begin
if Assigned(FOnMouseLeave) then FOnMouseLeave(self);
end;
procedure Register;
begin
RegisterComponents('ION T', [THighlightImage]);
end;
end.