Delphi bezeichnernamen im quellcode dynamisch zusammenbauen?

Thema durchsuchen

Ansicht

Themen-Optionen

bezeichnernamen im quellcode dynamisch zusammenbauen?

Ein Thema von ltmick · begonnen am 1. Jun 2008 · letzter Beitrag vom 1. Jun 2008

Vorheriger Beitrag

Nächster Beitrag

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.124 Beiträge

Delphi 11 Alexandria

Re: bezeichnernamen im quellcode dynamisch zusammenbauen?

1. Jun 2008, 14:10

Moin ltmick,

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

markieren

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;

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist