comment puis je récupérer les cordonnés (x,y) de le souris si je veut dissiner un rectangle ou autre chose on mouseDown apres un click sur un speed bouttons
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 void __fastcall TFp::SpeedButton1Click(TObject *Sender)
 {
   Fp->Image1->Canvas->Pen->Color = clWhite;
   Fp->Image1->Canvas->Ellipse(x-10, y-10, x+ 10, y+ 10);
   Fp->Image1->Canvas->Font->Color = clWhite;
   Fp->Image1->Canvas->Brush->Style = bsClear;
   TSize s = Fp->Image1->Canvas->TextExtent(nom);
   Fp->Image1->Canvas->TextOut(x - s.cx/2 , y - s.cy /2, nom);
 
 
 }
Fp et le nom de la forme( propriété name )