bezeichnernamen im quellcode dynamisch zusammenbauen?

[Christian Seehase]

Moin ltmick,

Sender ist schon die gewünschte Komponente.
So müsste es gehen:

Delphi-Quellcode:

procedure TForm1.ShpStd32ProgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

const
  _aclFarben : array [boolean] of TColor = (FarbeInaktiv,FarbeAktiv);

begin
  (Sender as TShape).Brush.Color := _aclFarben[(Sender as TShape).Brush.Color = FarbeInaktiv];
end;