FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
var 
  Position: TPoint; 
begin 
  GetCursorPos(Position); 
  Showmessage('Les coordonnées de la souris sont X: ' + 
  IntToStr(Position.X) + ' et Y: ' + IntToStr(Position.Y)); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
  MyPoint: TPoint; 
begin 
  GetCursorPos(MyPoint); 
  {Récupère la position du curseur } 
  SetCursorPos(300, 200); 
  {Positionne le curseur sur la fiche } 
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); 
  {Simule l'action de clic du bouton gauche de la souris } 
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); 
  {Simule l'action de relâcher du bouton gauche de la souris } 
  SetCursorPos(MyPoint.X, MyPoint.Y); 
  {Repositionne le curseur à sa position d'origine } 
end;

function GetAsyncKeyState(vKey: Integer): SHORT; stdcall;

1
2
3
4
5
6
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  If (GetAsyncKeyState(VK_LBUTTON)And $8000)<>0 
    Then Label1.Caption := 'Enfoncé' 
    Else Label1.Caption := 'Relâché'; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetHotSpot(CursorIndex:TCursor):TPoint; 
var iconInfo: TIconInfo; 
begin 
  if GetIconInfo(Screen.Cursors[CursorIndex], iconInfo) then 
  try 
    Result.X:=iconInfo.xHotspot; 
    Result.Y:=iconInfo.yHotspot; 
  finally 
    DeleteObject(IconInfo.hbmColor); 
    DeleteObject(IconInfo.hbmMask); 
    //Ces 2 membres sont créés par l'appel à GetIconInfo. Il faut donc les supprimer. 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure CursorToBitmap(CursorIndex:TCursor;var ABmp:TBitmap); 
var hCursor:  THandle; 
begin 
  ABmp.Width := 32; 
  ABmp.Height := 32; 
  ABmp.PixelFormat := pf24bit;   // pour éviter de travailler avec les palettes 
  hCursor := Screen.Cursors[CursorIndex]; 
  DrawIconEx(ABmp.Canvas.Handle, 0,0, hCursor, 32,32, 0,0, DI_NORMAL); 
  
  // Remplissage du curseur depuis "l'extérieur" de telle façon qu'un curseur blanc 
  // apparaisse blanc.  on suppose que le coin supérieur droit sera le point de départ du remplissage 
  // On suppose que RGB(250,250,250) sera la couleur de "transparence". 
  ABmp.Canvas.Brush.Color := RGB(250,250,250); 
  ABmp.Canvas.FloodFill(31,0, clWhite, fsSurface); 
  
  // Le coin supérieur gauche de certains curseurs est "bloqué" contre le floodfill 
  ABmp.Canvas.FloodFill(0,0, clWhite, fsSurface); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject); 
var 
  iconInfo: TIconInfo; 
  abmp:tbitmap; 
begin 
  abmp:=TBitmap.Create; 
  try 
    //On récupère mon Bitmap (en premier paramètre,  
    //on indique quel curseur on souhaite :  
    //crHandPoint, crHourGlass, crArrow, etc.) 
    CursorToBitmap(crHandPoint,abmp); 
    //On l'affiche sur la fiche 
    Form1.Canvas.Draw(5,5,abmp); 
    //ou le sauvegarde  
    abmp.saveTofile('MonCurseur.bmp'); 
  finally 
    abmp.Free; 
  end; 
end;