Fuer ein Prototypedarstellung muss ich die Objekt Eigenschaften wie ShapeN.Left bearbeiten. Mein Problem ist Ich kann sie derzeit nur einzeln zuweisen z.B wenn ich alle Shape Objekte 20 pixel (runtime) nach links schieben will. Mein Program basiert auf sehr viele Shapes and buttons die sich bewegen um ein Prototype zu visualisieren.
Gibt es eine Methode (object Pascal) diese wie folgend anzuweisen:
z.B:
Delphi-Quelltext
1:
| for n:=1 to 20 do Shape_n_.Left:=Shape_n_.Left+20; |
Ein Teil von meinem Program , das zeigt warum ich unbedingt sowas benoetige.
Mfg.
Danke im voraus
Incal99
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| case m of
1: begin Form1.BitBtn1.Top:=Form1.BitBtn1.Top+grid2;Form1.Gauge1.Top:=Form1.Gauge1.Top+grid2;Form1.GlyphButton1.Top:=Form1.GlyphButton1.Top+grid2;end;
2: begin Form1.BitBtn2.Top:=Form1.BitBtn2.Top+grid2;Form1.Gauge2.Top:=Form1.Gauge2.Top+grid2;Form1.GlyphButton2.Top:=Form1.GlyphButton2.Top+grid2;end;
3: begin Form1.BitBtn3.Top:=Form1.BitBtn3.Top+grid2;Form1.Gauge3.Top:=Form1.Gauge3.Top+grid2;Form1.GlyphButton3.Top:=Form1.GlyphButton3.Top+grid2;end;
4: begin Form1.BitBtn4.Top:=Form1.BitBtn4.Top+grid2;Form1.Gauge4.Top:=Form1.Gauge4.Top+grid2;Form1.GlyphButton4.Top:=Form1.GlyphButton4.Top+grid2;end;
5: begin Form1.BitBtn5.Top:=Form1.BitBtn5.Top+grid2;Form1.Gauge5.Top:=Form1.Gauge5.Top+grid2;Form1.GlyphButton5.Top:=Form1.GlyphButton5.Top+grid2;end;
6: begin Form1.BitBtn6.Top:=Form1.BitBtn6.Top+grid2;Form1.Gauge6.Top:=Form1.Gauge6.Top+grid2;Form1.GlyphButton6.Top:=Form1.GlyphButton6.Top+grid2;end;
7: begin Form1.BitBtn7.Top:=Form1.BitBtn7.Top+grid2;Form1.Gauge7.Top:=Form1.Gauge7.Top+grid2;Form1.GlyphButton7.Top:=Form1.GlyphButton7.Top+grid2;end;
8: begin Form1.BitBtn8.Top:=Form1.BitBtn8.Top+grid2;Form1.Gauge8.Top:=Form1.Gauge8.Top+grid2;Form1.GlyphButton8.Top:=Form1.GlyphButton8.Top+grid2;end;
9: begin Form1.BitBtn9.Top:=Form1.BitBtn9.Top+grid2;Form1.Gauge9.Top:=Form1.Gauge9.Top+grid2;Form1.GlyphButton9.Top:=Form1.GlyphButton9.Top+grid2;end;
10: begin Form1.BitBtn10.Top:=Form1.BitBtn10.Top+grid2;Form1.Gauge10.Top:=Form1.Gauge10.Top+grid2;Form1.GlyphButton10.Top:=Form1.GlyphButton10.Top+grid2;end;
11: begin Form1.BitBtn11.Top:=Form1.BitBtn11.Top+grid2;Form1.Gauge11.Top:=Form1.Gauge11.Top+grid2;Form1.GlyphButton11.Top:=Form1.GlyphButton11.Top+grid2;end;
12: begin Form1.BitBtn12.Top:=Form1.BitBtn12.Top+grid2;Form1.Gauge12.Top:=Form1.Gauge12.Top+grid2;Form1.GlyphButton12.Top:=Form1.GlyphButton12.Top+grid2;end;
end; |
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
FINDCOMPONENT