Bitmap pouvant suivre le curseur?
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:
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:
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 ;)
