bilder o.ä. im wärend das programm läuft verschieben

[gangs-taas]

hey,
ich hab da mal (wieder) eine frage :)

also ich wollte - wie es der titel schon sagt - ein bild wärend mein programm läuft verschieben

und ich hab mir gedacht ich mach das so :

Delphi-Quellcode:

Image1.Left := Mouse.CursorPos.x 
Image1.Top := Mouse.CursorPos.y

aber natürlich klappt das nicht
dann hab ich mir mit showMessage die koordinaten von beidem anzeigen lassen und die stimmten nicht über ein ...
warum ist nach diesem ocde die courerpos z.b. 460 und/aber die image position 130 ?!

danke schonmal :)

[turboPASCAL]

Hi,

schon im Forum mal gesucht ?
Hierzu gibts mit Sicherheit eine Meng Lösungen...

[Neutral General]

Weil CursorPos die globalen Koordinaten der Maus enthalten. Du brauchst musst folgendes machen:

Delphi-Quellcode:

Image1.Left := ScreenToClient(Mouse.CursorPos).x;

Wobei ich mir nichtmehr sicher bin ob ScreenToClient ein TPoint oder ein Integer verlangt.. Je nachdem halt anpassen.

Gruß
Neutral General

[gangs-taas]

okay danke

es ging mir ja nicht um eine lösung sondern darum wieso meins nicht geht :)
deswegen hab ich nochmal gefragt :)