Thema: Delphi problem mit visible

Einzelnen Beitrag anzeigen

Bx3

Registriert seit: 25. Dez 2007
44 Beiträge
 
#1

problem mit visible

  Alt 26. Mär 2008, 14:12
hi,
also, ich will 2 würfel für ein spiel simulieren,
unzwar sind diese mit jeweils 6 images welche übereinander
liegen versehen (jedes für eine zahl halt).
jetze wollte ich die mit einem delay sozusagen blinken lassen
bzw abwechselnd erscheinen lassen, nur funzt das iwie nich

hier mal der quelltext

Delphi-Quellcode:
 randomize;
 For i:=1 to 10 do
  begin
   x:=random(5)+43;
   y:=random(5)+49;
   (Findcomponent('Image'+intToStr(x))as TImage).visible:=true;
   (Findcomponent('Image'+intToStr(y))as TImage).visible:=true;
   sleep(100);
   If i<> 10 then
    begin
     (Findcomponent('Image'+intToStr(x))as TImage).visible:=false;
     (Findcomponent('Image'+intToStr(y))as TImage).visible:=false;
    end;
  end;
also es wird immer nur das letzte angezeigt
(auch wenn ich das delay extrem hochsetze passiert zb erst nach 10 was, aber
wieder halt nur das letzte)

hoffentlich war das jetze verständlich^^

schonma danke
Bx3
  Mit Zitat antworten Zitat