Cursor position ?Résolu

Question

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

f0xi · Accepted Answer

heu :

var
  pnt : TPoint;
begin
  GetCursorPos(pnt);
  inc(pnt.X, 30);
  inc(pnt.Y, 30);
  SetCursorPos(pnt);
end;

<hr size="2" width="100%" />

Taktaky · Answer

uncompatible integer and Point
SetCursorPos(pnt);

f0xi · Answer

l'aide du SDK windows existe...

GetCurosrPos(Pnt);
SetCursorPos(Pnt.X+30, Pnt.Y+30);

<hr size="2" width="100%" />

Cursor position ?

3 réponses

Votre réponse

Discussions similaires