Цитата:
|
Сообщение от Vayrus
Ага, не козырно 
Короче сделай так:
Создай папку "AUTO", в нее закидывай папки с маркой авто (н-р, "BMW 5 серии"), в свою очередь в эти же папки закинь фото авто ("BROWSE.JPG") и текстовое описание ("README.TXT"). Теперь в Delphi на форму кинь ListBox, Image и Memo, расположи их так как тебе надо. В OnCreate формы добавь поиск и добавление в ListBox имен подкаталогов каталога AUTO. На обработчик клика по ListBox повесь примерно следующий код:
Код:
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + ListBox1.Items.Strings[ListBox1.ItemIndex] + '\README.TXT');
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ListBox1.Items.Strings[ListBox1.ItemIndex] + '\BROWSE.JPG');
В USES добавь JPEG, возможно, понадобится проверка при выборе элементов из списка, чтобы не выскакивала ошибка о выходе значения за рамки диапозона. |
Блин сделал вроде все правильно а ни че не работат.. ((( Можешь пожалуйста собрать сам,заархивировать и прикрепить...у меня не получается...спасибо взарание!