9 picture problem

[dangerduck]

Servus!
It's me again :mrgreen:

I have 9 pictures like that :

http://www.shrani.si/f/V/uu/VEOwEh/slika1.png

and i want that one of 9 picture wil show randomly

like that:

http://www.shrani.si/f/34/l0/3HpdGM9d/slika-2.png

the image can be showed for 2000 msec and when disaper must add point and go to star of the loop =)


Please help me =)

[Noedel]

and what´s the problem?

1)get a random digit from 1 to 9
2)show the belonging image
3)Take a timer with an interval of 2sec
4)After 2 sec the timer will hide the image
5)the user has to click on the space, where the image was

Did i understand that correctly?

[dangerduck]

i know how to create random digit
but i must show picture and i dont know how to combine that 2 things :? other things i know but i will better use wait() then ttimer

[dangerduck]

sory for double post but i try like that
i gave image picture like that
Skica1
Skica2 ......
then i write code like that

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
type
skica=timage;
begin
skica+random(9).show=true
end;

But it wont work :wall:

[Klaus01]

Zitat:

Zitat von dangerduck

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
type
  skica=timage;
begin
  TImage(FindComponent(skica+IntToStr(random(9)))).show=true
end;

[dangerduck]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
type
  skica=timage;
begin
  TImage(FindComponent(skica+IntToStr(random(9)))).show=true
end;

thx 10000x there is no error's more just
[DCC Error] Unit17.pas(46): E2010 Incompatible types: 'string' and 'Class reference'

[Flips]

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
begin
  TImage(FindComponent('skica'+IntToStr(random(9)))).show=true
end;

[dangerduck]

Zitat:

Zitat von Flips

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
begin
  TImage(FindComponent('skica'+IntToStr(random(9)))).show=true
end;

[DCC Error] Unit17.pas(44): E2064 Left side cannot be assigned to
[DCC Error] Unit17.pas(45): E2014 Statement expected, but expression of type 'Boolean' found
[DCC Fatal Error] Project16.dpr(5): F2063 Could not compile used unit 'Unit17.pas'

[Klaus01]

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
begin
  TImage(FindComponent('skica'+IntToStr(random(9)))).show;
end;

.. is it to late for you?

Klaus

[dangerduck]

same withotu :
is
[DCC Error] Unit17.pas(44): E2029 ':=' expected but '=' found
with:
is
[DCC Error] Unit17.pas(44): E2064 Left side cannot be assigned to
[DCC Error] Unit17.pas(45): E2014 Statement expected, but expression of type 'Boolean' found