---

Hej

Findes der en function der kan fortælle om mouse cursor befinder sig over
f.eks. en TImage. I øjeblikket benytter jeg Mouse.CursorPos og sammenligner
x,y med TImage værdierne?

Mvh
HK

---

"Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
news:4069c567$0$493$edfadb0f@dread14.news.tele.dk...
> Hej
>
> Findes der en function der kan fortælle om mouse cursor befinder sig over
> f.eks. en TImage. I øjeblikket benytter jeg Mouse.CursorPos og
sammenligner
> x,y med TImage værdierne?

Den kode jeg bruger:

ImageMain er en TImage

var
Point : TPoint;
begin
if not Active then
exit;

Point:=ImageMain.ScreenToClient(Mouse.CursorPos);
if (Point.X<0) or (Point.Y<0) then
exit; // er udenfor

if (Point.X>ImageMain.Width) or (Point.Y>ImageMain.Height) then
exit; // er udenfor
..
..
..

Mvh
HK

---

"Harald" <news10@-REMOVE-THIS-kroning.dk> wrote in message
news:4069e1a1$0$453$edfadb0f@dread14.news.tele.dk...
> "Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
> news:4069c567$0$493$edfadb0f@dread14.news.tele.dk...
> > Hej
> >
> > Findes der en function der kan fortælle om mouse cursor befinder sig
over
> > f.eks. en TImage. I øjeblikket benytter jeg Mouse.CursorPos og
> sammenligner
> > x,y med TImage værdierne?
>
> Den kode jeg bruger:
>
> ImageMain er en TImage
>
> var
> Point : TPoint;
> begin
> if not Active then
> exit;
>
> Point:=ImageMain.ScreenToClient(Mouse.CursorPos);
> if (Point.X<0) or (Point.Y<0) then
> exit; // er udenfor
>
> if (Point.X>ImageMain.Width) or (Point.Y>ImageMain.Height) then
> exit; // er udenfor

kan du ikke bruge

//hjælpefunktion
function getCursorPosEx:TPoint;
begin
getCursorPos(result);
end;

if ptInRect(dinkontrol.boundsrect,getCursorPosEx) then

???

(utestet)

---

"David Konrad" <david_konrad_FJERN_@hotmail.com> skrev i en meddelelse
news:c4e1mq$8qj$1@sunsite.dk...
> "Harald" <news10@-REMOVE-THIS-kroning.dk> wrote in message
> news:4069e1a1$0$453$edfadb0f@dread14.news.tele.dk...
> > "Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
> > news:4069c567$0$493$edfadb0f@dread14.news.tele.dk...
> > > Hej
> > >
> > > Findes der en function der kan fortælle om mouse cursor befinder sig
> over
> > > f.eks. en TImage. I øjeblikket benytter jeg Mouse.CursorPos og
> > sammenligner
> > > x,y med TImage værdierne?
> >
> > Den kode jeg bruger:
> >
> > ImageMain er en TImage
> >
> > var
> > Point : TPoint;
> > begin
> > if not Active then
> > exit;
> >
> > Point:=ImageMain.ScreenToClient(Mouse.CursorPos);
> > if (Point.X<0) or (Point.Y<0) then
> > exit; // er udenfor
> >
> > if (Point.X>ImageMain.Width) or (Point.Y>ImageMain.Height) then
> > exit; // er udenfor
>
> kan du ikke bruge
>
> //hjælpefunktion
> function getCursorPosEx:TPoint;
> begin
> getCursorPos(result);
> end;
>
> if ptInRect(dinkontrol.boundsrect,getCursorPosEx) then

Takker, det var lige ptInRect jeg manglede.

if not
ptInRect(Minkontrol.BoundsRect,Minkontrol.ScreenToClient(Mouse.CursorPos))
then
exit;

/HK

---

> if not
> ptInRect(Minkontrol.BoundsRect,Minkontrol.ScreenToClient(Mouse.CursorPos))
> then
> exit;
>
> /HK

Vi er næsten tilbage til dit eget forslag her ...

*snip snap fra types.pas*

function PtInRect(const Rect: TRect; const P: TPoint): Boolean;
begin
Result := (P.X >= Rect.Left) and (P.X < Rect.Right) and (P.Y >= Rect.Top)
and (P.Y < Rect.Bottom);
end;

/Nic