Delphi - OnMouseOver event?

[!rabas]

Ovako stavra je u sledecem: Da li u delphiju postoji neka procedura koja bi nekako glasila slicno ovome: OnMouseOver? Mislim da kada predjem misem preko nekog objekta ( u mom slucaju TImage) desi se odredjeni dogadjaj(npr. caption labele se promeni). Znam da sam mogao to isto uradtiti i sa onmousemove, a takodje znam da postoji i procedura onmousenter, ali ona vazi samo za neke objekte (TCustomLabel npr.) :?:



edit: izmenio sam naslov da bude razumljiviji, posto je bio sasvim neodredjen.

 

[jddipqd]

Koristi ovu komponentu umesto TImage
[code:1]
unit HighlightImage;

interface
uses Messages, Controls, Classes, StdCtrls ,Graphics ,SysUtils,ExtCtrls;


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('Samples', [THighlightImage]);
end;

end.
[/code:1]

 

[!rabas]

E sad sam probao i radi. Duboka zahvalnost