Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Listbox, Image и изменения

Автор: Mazikk 8.2.2010, 10:04

Здравствуйте.
Есть 10 TImage на форме и один Tlistbox. В listbox добавляются пути к картинкам. Как теперь вывести эти картинки в имаджах? Дело в том, что значений у листбокса не обязательно 10, может меньше. Или если добавил сначала 3, потом еще 5. Или удалили несколько путей.
Просто я не знаю как у листобокса отслеживать события, а через таймер думаю не совсем правильно.
Спасибо.

Автор: ~FoX~ 8.2.2010, 11:53

Цитата(Mazikk @ 8.2.2010, 11:04

)

Просто я не знаю как у листобокса отслеживать события

Нету у листбокса нужного тебе события, по этому обрабатывать надо не его события, а те которые добавляют/удаляют записи например

Код


if OpenDialog1.Execute then begin
   // здесь необходимые действия
  SetListPicture;
end;

или

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Delete(0);
  // здесь необходимые действия  
  SetListPicture;
end;

Код


procedure SetListPicture();
var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1  do begin
    with TImage(FindComponent('Image'+IntToStr(i))).Picture.LoadFromFile(ListBox1.Items.Strings[i]);
  end;
end;

Автор: Mazikk 8.2.2010, 14:17

Спасибо большое! В принципе, я уже допер и шел к этому, но не много по другому.