Слайдшоу

[Davl]

подскажите пожалуйста почему не работает
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
n:integer;a:integer;
begin
Timer1.Enabled:=True;
i:=1;
Timer1.Interval:= i;//устанавливаем интервал на таймер

n:= ListBox1.Items.Count;
a:=0;
Image1.Picture.LoadFromFile(ListBox 1.Items.Strings[a]);
a:=a+1;
end;

[zetrix]

i:=1;
Timer1.Interval:= i;

я не уверен, что за 1 мс вы успеете что-то разглядеть))
поставьте i:=3000;

Это в таймере:
перерисовку окна не помешает сделать form1.repaint;
и обработку внешних соообщений (чтоб не подвисало) application.processmessage; (по памяти пишу, возможно чуть по другому пишется).

[Davl]

Последовала вашему совету, но рисунки все равно не сменяют друг друга. Отображается первый рисунок и начинает мигать через некоторое время, которое указано в таймере=(

[Квэнди]

обработчик таймера покажи

[Davl]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Repaint;
Application.ProcessMessages;
end;

[Alex21]

Переменные делаем глобальными

var
  Form1: TForm1;
  a:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  Timer1.Interval:= 500;//устанавливаем интервал на таймер
  a:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if a <= ListBox1.Items.Count-1 then
  begin
    Image1.Picture.LoadFromFile(ListBox1.Items.Strings [a]);
    a:=a+1;
  end else Timer1.Enabled:=false;
end;

[Davl]

Спасибо огромное=)
все же есть еще в нашем мире добрые люди...