Maus Pos

[jonsen2.0.0.9]

Hallo,
wollte ma was schreiben was die position der maus nutzt und so einen ball immer in die richtung des zeigers bewegt...

Nun hab ich folgendes problem...ich weiss nich wie man die position der maus auf Form bekommt...ich bekomme nur die pos der maus auf dem bildschirm in pixeln brauche aber die angaben wie sie auch bei z.B. der kugel sind (z.B. left 10 top 5)

mein bisheriger TEXT:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
var
mauspos:TPoint;
begin
GetCursorPos(mausPos);
 if Ball.top<mauspos.y then
  b:=1;               //b ist die bewegung nach oben und unten
 if Ball.Top+Ball.Height>mauspos.Y then
  b:=-1;
 if Ball.left<mauspos.Y then
  c:=1;              //c ist die bewegung nach links und rechts
 if Ball.Left+Ball.Width>mauspos.Y then
  c:=-1;
Ball.Left:=Ball.Left+c;
Ball.Top:=Ball.Top+b;
end;

wäre toll wenn ihr mir da helfen könnt!

[Bernhard Geyer]

Mit den TForm-Methoden ScreenToClient und ClientToScreen könnten die Koordinaten umgerechnet werden.

[jonsen2.0.0.9]

kannste mir ma zeigen wie dat genau geht hab jetzt so:

Delphi-Quellcode:

GetCursorPos(mausPos);
ScreenToClient(Mauspos);
 if Ball.top<mauspos.y then
  b:=1;
 if Ball.Top+Ball.Height>mauspos.Y then
  b:=-1;
 if Ball.left<mauspos.Y then
  c:=1;
 if Ball.Left+Ball.Width>mauspos.Y then
  c:=-1;
Ball.Left:=Ball.Left+c;
Ball.Top:=Ball.Top+b;

was muss man noch ändern?
muss vor
ScreenToClient(Mauspos); noch nen Mauspos:= oder so?

[Bernhard Geyer]

Zitat von jonsen2.0.0.9:

was muss man noch ändern?
muss vor
ScreenToClient(Mauspos); noch nen Mauspos:= oder so?

Schau dir doch mal in der Onlinehilfe an wie die Methode so definiert ist.
Dann sollte es klar sein.