les coordonnés de la souris
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 8-) apres un click sur un speed bouttons
Code:
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 )
