Salut,

Voici mon petit problème,
Quand on crée un Canvas comme suite:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
     Desktop: Tcanvas;
     x,y: Integer;
begin
     x := Mouse.CursorPos.X - 25;
     y := Mouse.CursorPos.Y - 25;
     Desktop := Tcanvas.Create;
     try
          Desktop.Handle := GetWindowDC(0);
          Desctop.Rectangle(Rect(x,y,50,50));
          ReleaseDC(0, Desktop.Handle);
     finally
          Desktop.Free;
     end;
end;
Comment fait on pour que ce rectangle suive la souris sans que celui efface tout l'écran?

C'est pour creer une loupe qui suit la souris en utilisant un Copyrect (Toute la partie d'agrandissement ne me pose aucun problème puisque je l'ai déjà fait mais dans une form fixe).

Merci d'avance.