Hallo,
ich habe ein zweidimensionales dynamisches Array of Tshape erstellt. Dazu habe ich auch dynamisch Buttons erstellt (array of Tbutton). Jetzt möchte ich per onclick auf den Button das letzte Shape der Reihe färben, wenn es nicht schon gefärbt ist. meine Procedure klappt zwar, aber es werden immer mehrere Shapes gefärbt, aber es soll immer nur das letzte gefärbt werden, wenn es weiß ist. ich hoffe es war verständlich.
Ich hoffe ihr könnt mir sagen was ich an der procedure ändern soll, damit es klappt.
Danke schonmal
Delphi-Quellcode:
Procedure zeichnen;
var x,y,m,breite,hoehe,links :integer;
begin
i:=0;
Breite := 60;
Hoehe := 60;
Panel1:=TPanel.Create(Form1);
panel1.Parent:=Form1;
panel1.Top:=50;
panel1.Left:=50;
panel1.Height:=hoehe*k+k*2;
panel1.Width:=breite*p+p*2;
panel1.Color:=clblue;
setlength(Myshapes,k,p);
for x:= 0 to high(Myshapes) do
begin
for y:=0 to high(Myshapes[x]) do
begin
Myshapes[x][y]:=TShape.Create(Panel1);
myshapes[x][y].Shape:=stCircle;
myshapes[x][y].Parent:=Panel1;
myshapes[x][y].Top:=x*(Breite+2);
myshapes[x][y].left:=y*(Hoehe+2);
myshapes[x][y].width:= breite;
myshapes[x][y].height:=hoehe;
myshapes[x][y].Brush.Color:=clwhite;
myshapes[x][y].OnMouseDown:=Form1.klick;
end;
end;
setlength(Mybutton,p);
links:=1;
for m:= 0 to high(Mybutton) do
begin
mybutton[m]:=TButton.Create(Form1);
mybutton[m].Parent:=Form1;
mybutton[m].top:=25;
mybutton[m].left:=62*links-12;
mybutton[m].width:=62;
mybutton[m].height:=25;
mybutton[m].Font.Size:=8;
mybutton[m].caption:='hier';
mybutton[m].Tag:=i;
inc(links);
inc(i);
mybutton[m].onclick:=form1.mybuttonclick;
end;
end;
procedure TForm1.mybuttonclick(Sender: TObject); ////
Var
n :integer;
y : integer;
x: integer;
Helfer : TButton;
begin
Helfer := TButton(Sender);
x:=high(myshapes);
y:=Helfer.Tag;
for n:=0 to high(mybutton) do
begin
If myshapes[x][y].Brush.Color = clwhite then
myshapes[x][y].Brush.Color:=clyellow else
x:=x-1;
if x<0 then x:=0;
end;