Поможіть скласти програмку

[ZhekON]

PLEASE!!!
Поможіть скласти програмку

Умова проги:

є 19 скритих (image.hide) картінок.
вони должні по очереді появляться і скриваться кожну секунду поки якесь n не буде дорівнювать нулю.
при натисканні на картінку (якщо вона в положенні "image.show") виконується певна процедура.

Оце і все

[Virtson]

> 'виконується певна процедура.'
только это предложение не понял
don't understand ..

[AVer]

поки якесь n не буде дорівнювать нулю

Эще вот это не совсем понял. Что есть N?

[R2AS]

"Эще вот это не совсем понял. Что есть N?"
Он наверно так секунды считает в таймере .

[NightmareZ]

Сообщение от ZhekON

PLEASE!!!
Поможіть скласти програмку

Умова проги:

є 19 скритих (image.hide) картінок.
вони должні по очереді появляться і скриваться кожну секунду поки якесь n не буде дорівнювать нулю.
при натисканні на картінку (якщо вона в положенні "image.show") виконується певна процедура.

Оце і все

Если б ты ещё на нормальном украинском языке написал. А то, какая-то помесь

[Alar]

http://www.programmersclub.ru/labmultimedta

вероятно это -
Просмотр иллюстраций

Эта программа позволяет просматривать изображения в Delphi. Программа позволяет по очереди просматривать иллюстрации в заданном каталоге. Delphi код формирует список файлов в каталоге, как в программе MP3 плеер, с помощью процедур FindFirst, FindNext и после нажатия кнопки далее программа подгружает следующую по списку иллюстрацию в Image1.
Скачать (8 кб)

[Speeker]

Сообщение от ZhekON

PLEASE!!!
Поможіть скласти програмку

Умова проги:

є 19 скритих (image.hide) картінок.
вони должні по очереді появляться і скриваться кожну секунду поки якесь n не буде дорівнювать нулю.
при натисканні на картінку (якщо вона в положенні "image.show") виконується певна процедура.

Оце і все

Помогите написать програмку

Условия програмы

Есть 19 скрытых (image.hide) картинок.
Они должны по очереди появляться и скрываться каждую секунду пока какое то n не будет равно нулю.
При нажатии на картинку (Если она в положении "image.show")
выполняеться определенная процедура.

Вот и все

[ZhekON]

Сообщение от AVer

Эще вот это не совсем понял. Что есть N?

N число, яке зменшується єслі процедура натискання на картінку виконується.

[AVer]

На форме Image1 - 19 , Timer1.
На срабатывание таймера пиши:

Var I:Integer;
Begin
If I = 19 Then I:=0;
Inc(I);
Case I of
   1: Begin
       Imege19.Hide;
       Image1.Show;
       End;
   2: Begin
       Image1.Hide;
       Image2.Show;
       End;
    ....     // Так до 19
End;

А при нажатии на каждый из Image пиши:

N:=N-1;

[Speeker]

Вот пример

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     procedure aclick2 (Sender: TObject); {Прописана вручную}
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 var
 a:array [1..5] of TImage; {масив рисунков}
i:integer;
 procedure Tform1.aclick2(Sender: TObject);   {тоже ручками}
 begin
     close; {тут твоя процедура по нажатию на кртинку}
 end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
n:integer;
begin
for i:=1 to 5 do
a[i].Visible:=false;{все єлементы сделать невидимыми}
n:=n+1; {определяем номер рисунка который будет видимый}
if n>5 then n:=1;{если номер больше пяти начинаем опять с единицы}
a[n].Visible:=true;{рисунок с номером N делаем видимым}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 5 do
begin
    a[i]:=timage.Create(self);        {динамическое создание элементов и задание параметров}
    a[i].Parent:=form1;
    a[i].Visible:=false;
    a[i].Picture.LoadFromFile(inttostr(i)+'.bmp'); {в папке дожны быть рисунки с названиями 1.bmp, 2.bmp и т.д или прописывать отдельно}
    a[i].OnClick:=aclick2;{Название процедуры обработки которая вызываеться по щелчку}
    a[i].Left:=10;
    a[i].Top:=10;
end;
end;
end.