ScreentoClient -> Inkompitable Typen:'Tpoint' und 'Longbool'

[Noone9]

Hallo,

bin gerade dabei eine Procedure in eine andere Unit auszulagern, stoße dabei aber auf ein Problem bezüglich der ScreentoClient Funktion.

Delphi-Quellcode:

function MouseCollision(object1 : TImageSprite):boolean;
var ...
    p:TPoint;
    windo:HWND;
begin
   ...
   p:=mouse.CursorPos;
   windo:=findwindow('Admaintestproject', nil);
   p:= ScreentoClient(windo, p);
   ...
end;

Der Compiler gibt mir die Fehlermeldung "Inkompitable Typen:'Tpoint' und 'Longbool'" an der Stelle
 p:= ScreentoClient(windo, p); . Ich komm aber nicht drauf warum der da ne Longbool haben will Oo

Gruß

[edit=SirThornberry]Titel geändert - Das es um ein Problem geht sagt bereits die gewählte Kategorie aus - Mfg, SirThornberry[/edit]

[s-off]

Schau Dir die Parameter an, die ScreenToClient haben will.

[Noone9]

(hwnd, tpoint) denk ich doch. Und das liefere ich doch auch.

[FAlter]

Hi,

die Funktion gibt LongBool zurück, also

Delphi-Quellcode:

if Windows.ScreenToClient(Handle, Point) then
  Successful
else
  error;

Wobei Point ein var-Parameter ist, d. h. wenn es erfolgreich war, ist der Point angepasst.

Mfg
FAlter

[s-off]

Zitat von Noone9:

(hwnd, tpoint) denk ich doch. Und das liefere ich doch auch.

Ja, darum geht es aber nicht.
Es gibt eine überladene Funktion; Du machst bzgl. Parameter und Result einen Mischmasch aus beiden

[Noone9]

Ah dankeschön, habs jetzt gerafft, funktioniert jetzt problemlos.