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
Fp et le nom de la forme( propriété name )
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); }
Partager