Forum: Object-Pascal / Delphi-Language
Delphi
by MrAndyG,
9. Okt 2008
Sry das hier warn Doppelpost mein Browser is hängengeblieben
Forum: Object-Pascal / Delphi-Language
Delphi
by MrAndyG,
9. Okt 2008
Hi, seid mir nicht böse aber ich versteh das nicht.
Wie kann ich denn jetzt konkret dem zweiten Kreis in meiner Liste den Füllwert "grün" zuweisen?
Forum: Object-Pascal / Delphi-Language
Delphi
by MrAndyG,
9. Okt 2008
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Die wurden so angelegt als ich die aus der Komponentenpalette heraus erstellt habe.
Forum: Object-Pascal / Delphi-Language
Delphi
by MrAndyG,
8. Okt 2008
Im Nachhinein will ich damit folgende Procedure "füttern":
procedure ShineGreen(CurrentCircle:Integer);
begin
Kreise.Brush.Color:=clGreen
Mit dem Array erspar ich mir dann jede Menge Schreibarbeit
Forum: Object-Pascal / Delphi-Language
Delphi
by MrAndyG,
8. Okt 2008
Hallo zusammen,
ich habe in meinem Programm 8 verschiedene "Shape" eingefügt, also Kreise.
Diese würde ich gerne als ein Array zusammenfassen, um diese später leichter ansprechen zu können.
Ich habe z.B. eine Prozedur zum Ändern der Farbe geschrieben:
procedure MakeGreen(CurrentCircle:Integer);