MouseOver event?

i eksemplet har jeg brugt et panel

// indenfor området
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Caption:= 'hit';
end;

//undenfor området
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Caption:='Panel1';
end;

Det var det jeg mente med "underlag", som efter min mening besværligtgører kodningen... Jeg har fundet en metode til brug, når man laver komponenter.

Den aktiveres når markøren bevæger sig ind på componenten, og igen når den forlader den:

(Jeg har kopieret direkte, men der mangler ikke noget)

//scratch for a new component
TMyComp = class(TComponent)
...
procedure CMMouseEnter(var msg: TMessage);
    message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage);
    message CM_MOUSELEAVE;
...
implementation

procedure TMyComp.CMMouseEnter(var msg: TMessage);
begin
//do what ever you want to do
//when mouse enters
end;

procedure TMyComp.CMMouseLeave(var msg: TMessage);
begin
//do what ever you want to do
//when mouse leaves
end;

...Så jeg lukker lige tråden.

Mange tak for hjælpen alligevel...