Перейти к содержанию
Fire Monkey от А до Я
  • 0

Слайд с пролистывание картинок в форме


Ig.169

Вопрос

Рекомендуемые сообщения

  • 0
В 24.10.2017 в 17:00, Rusland сказал:

Использовать Image и Timer (Interval=5000).

В чем сложность?

Каким образом запихнуть кучу картинок в один TImage? Если можете, приложите пример кода, буду благодарен. 

Изменено пользователем Ig.169
Ссылка на комментарий
  • 0
var
  Form1: TForm1;
  ind: integer;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ind := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ind := ind + 1;
  if FileExists(System.IOUtils.TPath.Combine(
    System.IOUtils.TPath.GetDocumentsPath, 'picture' + ind.ToString + '.png')) then
  Image1.Bitmap.LoadFromFile(System.IOUtils.TPath.Combine(
    System.IOUtils.TPath.GetDocumentsPath, 'picture' + ind.ToString + '.png'));
end;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...