Ce problème est simple : Une TBitmap ou TImage crée par défaut avec une bitmap chargée avec LoadFromFile qui suivrait constamment le curseur de la souris.
-> Soit utilisation du Canvas ou Soit les coordonnées de la TImage à changer

Coordonnées TImage :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
         TImage *Image;
         const AnsiString Str="C:\\Program Files\\Borland\\CBuilder6\\Projects\\...";
         Image->Picture->LoadFromFile(Str);
 
         Image->Left=X;
         Image->Top=Y;
 
         delete &Image;
}
//---------------------------------------------------------------------------
OU Canvas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
            Graphics::TBitmap *Bmp = new Graphics::TBitmap();
            const AnsiString Str="C:\\Program Files\\Borland\\CBuilder6\\Projects...";
         Bmp->LoadFromFile(Str);
         Form1->Canvas->Draw(X,Y,Bmp);
 
}
Premier Cas : Soit l'image n'apparait pas, soit message d'erreur de chargement de l'image bmp;

Deuxieme Cas : Il marche mais pas de possibilité pouvant effacer l'image sans supprimer le canvas qui se trouve déjà derrière.

Aidez-moi, et je vous offrirai une reconnaissance éternelle