Werkzeuge mithilfe von Mauspalettenschaltern wechseln

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu Behandlung mehrerer Zeichenobjekte in einer Anwendung


Für jedes Zeichenwerkzeug muss eine OnClick-Ereignisbehandlungsroutine bereitgestellt werden. Angenommen, eine Anwendung verfügt über Symbolleistenschaltflächen für alle vier Zeichenwerkzeuge: Linien, Rechtecke, Ellipsen und abgerundete Rechtecke. In diesem Fall könnten Sie den OnClick-Ereignissen dieser vier Schaltflächen die folgenden Behandlungsroutinen zuordnen und DrawingTool dort auf den entsprechenden Wert setzen:

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;
}

Siehe auch