Cursor position ? [Résolu]

Taktaky 31 Messages postés lundi 21 mai 2007Date d'inscription 21 août 2008 Dernière intervention - 4 juil. 2008 à 21:00 - Dernière réponse : f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention
- 5 juil. 2008 à 11:53
Salut

cett code prendere la Position de la Serie (Cursor position)
mais je voudrais un peut deplacer la Position de Cursor avec 30 pixcel, 30 pixcel
alors left+30, top+30 (point.x, point.y) !

CursorPosition ?
// 1. Get the handle to the current mouse-cursor and its position
function GetCursorInfo2: TCursorInfo;
var
hWindow: HWND;
pt: TPoint;
pIconInfo: TIconInfo;
dwThreadID, dwCurrentThreadID: DWORD;
begin
Result.hCursor := 0;
ZeroMemory(@Result, SizeOf(Result));
// Find out which window owns the cursor
if GetCursorPos(pt)then
begin
Result.ptScreenPos : = pt;
hWindow := WindowFromPoint(pt);
if IsWindow(hWindow)then
begin
// Get the thread ID for the cursor owner.
dwThreadID : = GetWindowThreadProcessId(hWindow, nil);
 
// Get the thread ID for the current thread
dwCurrentThreadID := GetCurrentThreadId;
 
// If the cursor owner is not us then we must attach to
// the other thread in so that we can use GetCursor() to
// return the correct hCursor
if(dwCurrentThreadID <> dwThreadID)then
begin
if AttachThreadInput(dwCurrentThreadID, dwThreadID, True)then
begin
// Get the handle to the cursor
Result.hCursor : = GetCursor;
AttachThreadInput(dwCurrentThreadID, dwThreadID, False);
end;
end
else
begin
Result.hCursor := GetCursor;
end;
end;
end;
end;
 
 

Merci
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 4 juil. 2008 à 22:39
3
Merci
heu :

var
  pnt : TPoint;
begin
  GetCursorPos(pnt);
  inc(pnt.X, 30);
  inc(pnt.Y, 30);
  SetCursorPos(pnt);
end;

<hr size="2" width="100%" />

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de f0xi
Taktaky 31 Messages postés lundi 21 mai 2007Date d'inscription 21 août 2008 Dernière intervention - 4 juil. 2008 à 23:40
0
Merci
uncompatible integer and Point
SetCursorPos(pnt);
Commenter la réponse de Taktaky
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 5 juil. 2008 à 11:53
0
Merci
l'aide du SDK windows existe...

GetCurosrPos(Pnt);
SetCursorPos(Pnt.X+30, Pnt.Y+30);

<hr size="2" width="100%" />
Commenter la réponse de f0xi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.