Смена изображений

[KORT]

Привет народ. Вопрос в следующем: как заставить меняться картинки после нажатия на кнопку. Нечего не выходит. Помогоите или посоветуйте где можно про это прочитать.

[Alex21]

Очень простенький пример:

const
f1='D:\1.bmp'; {путь 1-й картинки}
f2='D:\2.bmp'; {путь 2-й картинки}
 
var
  Form1: TForm1;
  pic:boolean=false; {условная переменная}
...........
procedure Draw; {процедура вывода нужной картинки}
begin
if Pic=true then {в зависимости от условия выбираем нужную картинку}
  begin
   Form1.Image1.Picture.LoadFromFile(f1);
  end
     else
  begin
   Form1.Image1.Picture.LoadFromFile(f2);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  pic:=not pic; {меняем условие}
  Draw; {процедура смена картинки}
end;

[KORT]

Спасибо сейчас попробую. Может заработает.

[KORT]

Это маленько не то. Посмотри программку. Там дело так: запускаем прогу и начинает играть музыка, расставляем картинки по полям и нажимаем кнопку готово и должна просходить смена картинок, чтобы новые картинки расставить по полям. Посмотри ты разберешься. Программка интересная.