Mehrere Shapes auf einmal umfärben

Avant · Hält's aus hier Beiträge: 13

Hallo,

ich habe bisher ein Programm geschrieben, dass mit sehr vielen Shaped arbeiten muss (280 Stück).

Jetzt ist es jedoch notwendig, dass mehrere Shapes (etwa 60) auf einmal umgefärbtwerden.

Es ist jedoch sehr viel Arbeit das jedesmal mit

markieren

Delphi-Quelltext

1:	Shape1.Brush.Color:=clgreen; Shape2.Brush.Color:=clgreen; (...) Shape57.Brush.Color:=clgreen;

Kann man das nicht irgendwie zusammenfassen?

z.B.

markieren

Delphi-Quelltext

1:	(Shape1, Shape2, Shape3).Brush.Color:=clgreen;

habs schon so versucht - geht aber nicht.

Könnt ihr mir bitte eine Vereinfachung sagen

Danke
Avant

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Narses · Verfasst: So 02.03.08 14:38

Moin und

im Forum!

Du suchst vermutlich Suche in: Delphi-Forum, Delphi-Library

FINDCOMPONENT. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Regan · Verfasst: So 02.03.08 15:06

Ich würd hier sogar noch etwas genauer dir diesen Beitrag empfehlen: klick.

Außerdem musst du wissen, dass du die Shapes mit einem zählbaren Index (z.B. Zahlen) benennen musst. Dann kannst du die mit einer for-Schleife ansprechen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme