Random Tshape!

[Counter909]

ja ich denke deine antwort hat mir geholfen...

[das mit findcomponent werde ich sonst später versuchen]



aber zu dem case of: hab ich das dann richtig verstanden dass bei dir dann per zufall
der strich oder der Kreis ausgewählt wird ??? weil ich jetzt ja vor habe, einen von den 10 shapes
(die ja noch invisible sind) aufzurufen bzw visible zu machen.....nun hab ich es so gemacht :

Delphi-Quellcode:

begin
i := random(10);
Case i of
  0 : kreis1 := true;
  1 : kreis2 := true;
  2 : kreis3 := true;
  3 : kreis4 := true;
  4 : kreis5 := true;
  5 : kreis6 := true;
  6 : kreis7 := true;
  7 : kreis8 := true;
  8 : kreis9 := true;
  9 : kreis10 := true;
  10 : kreis11 := true;
  end;
  
If Kreis1=true then
begin
  shape1.Visible:=true;
end else
If kreis2=true then
begin
  shape2.Visible:=true;
end else
....

nun hab ich aber das problem, dass jedes mal nur der Kreis1 sichtbar wird...also das mit dem zufall klappt
noch net ganz...da muss also i.wie eine kleiner fehler drin liegen oder ??


mfg
counter