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 :
OU Canvas
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; } //---------------------------------------------------------------------------
Premier Cas : Soit l'image n'apparait pas, soit message d'erreur de chargement de l'image bmp;
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); }
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![]()
Partager