Changement d'outil en utilisant des turboboutons
Remonter à Gestion de plusieurs objets de dessin dans votre application
Chaque outil de dessin de votre application doit avoir un gestionnaire pour son événement OnClick Supposons que votre application ait une barre d'outils comportant un bouton pour chacun des quatre outils de dessin : ligne, rectangle, ellipse et rectangle arrondi. Vous attacherez les gestionnaires suivants aux événements OnClick des quatre boutons, en affectant à DrawingTool la valeur correspondant à chaque outil :
procedure TForm1.LineButtonClick(Sender: TObject);{ LineButton }
begin
DrawingTool := dtLine;
end;
procedure TForm1.RectangleButtonClick(Sender: TObject);{ RectangleButton }
begin
DrawingTool := dtRectangle;
end;
procedure TForm1.EllipseButtonClick(Sender: TObject);{ EllipseButton }
begin
DrawingTool := dtEllipse;
end;
procedure TForm1.RoundedRectButtonClick(Sender: TObject);{ RoundRectButton }
begin
DrawingTool := dtRoundRect;
end;
void __fastcall TForm1::LineButtonClick(TObject * Sender)
// LineButton
{
DrawingTool = dtLine;
}
void __fastcall TForm1::RectangleButtonClick(TObject * Sender)
// RectangleButton
{
DrawingTool = dtRectangle;
}
void __fastcall TForm1::EllipseButtonClick(TObject * Sender)
// EllipseButton
{
DrawingTool = dtEllipse;
}
void __fastcall TForm1::RoundedRectButtonClick(TObject * Sender)
// RoundRectBtn
{
DrawingTool = dtRoundRect;
}