Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Mauscursor positionieren ... die x.te ... (https://www.delphipraxis.net/120296-mauscursor-positionieren-die-x-te.html)

Graffi 8. Sep 2008 21:20


Mauscursor positionieren ... die x.te ...
 
Hallo,

ich habe alle erdenklichen Tipps aus diesem Forum getestet, leider ohne Erfolg.
(Mouse.CursorPos ... etc.)

Selbst auf einem nackten Form kann ich den Mauscursor nicht bewegen. Ein kurzzeitiges Eingabeverhalten zeigt mir zwar die neue Position, aber die "Darstellung" des Cursors bleibt einfach an der gleichen, alten Stelle.

Ich brauche die Mauspositionierung, um bei bestimmten Aktionen im Zentrum eines TImages zu bleiben.

Arbeite unter D6-Ent.!

Ein ratloser Ralf! :-((

3_of_8 8. Sep 2008 21:32

Re: Mauscursor positionieren ... die x.te ...
 
Mouse.CursorPos müsste eigentlich funktionieren... was ist mit SetCursorPos?

itashadow 9. Sep 2008 08:30

Re: Mauscursor positionieren ... die x.te ...
 
hast du auch dem mousecursor einen x und y wert zugewiesen der ungleich der vorherigen mausposition ist?

Delphi-Quellcode:
 
var
  x : tpoint;
begin
  x.X := mouse.CursorPos.X +1;
  x.Y := mouse.CursorPos.Y +1;
  mouse.CursorPos := x;
end;

taaktaak 9. Sep 2008 09:18

Re: Mauscursor positionieren ... die x.te ...
 
Moin, Moin.

Du schreibst..
Zitat:

um bei bestimmten Aktionen im Zentrum eines TImages zu bleiben
ist dann für dich nicht eher die Funktion ClipCursor() von Interesse?

Graffi 9. Sep 2008 19:46

Re: Mauscursor positionieren ... die x.te ...
 
Upps, ich habe die Ursache inzwischen gefunden:

Ich arbeite unter VMWare 6.0 - leider vergessen anzugeben. Ausserhalb der VM läuft z.B. mouse.CursorPos ohne Probleme.

@taaktaak

Nein, ich muss bei einer "bestimmten Zoomfunktion" in's Zentrum hüpfen können. ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz