Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Легко ли найти нужную информацию на сайте?
Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)
Результаты
Другие опросы
Всего голосов:
590
Комментарии:
0
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Поочередно показываем рисунки
У нас ест форма, на ней Image1 и Timer1, и на
диске
в одной папке содержатся рисунки. Попытаемся поочередно показывать эти рисунки в image1,
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
foto: TListBox;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; i:word;
implementation
uses ShellAPI, ShlObj;// Нужны для работы с диалогом выбора
{$R *.dfm}
procedure FillBMPFileList(Folder: string; sl: TStrings);// процедура добавления файлов в список
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.bmp', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Folder+Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;
function BrowseDialog(const Title: string; const Flag: integer): string;// вывод диалога выбора файлов
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := form1.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingBackslash(TempPath);
GlobalFreePtr(lpItemID);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);// запуск ункции вывода файлов
var fs : string;
begin
fs := BrowseDialog('Выберите папку с BMP файлами', BIF_RETURNONLYFSDIRS);
if fs = '' then Exit;
FillBMPFileList(fs, foto.Items);
timer1.Enabled:=true
end;
procedure TForm1.Timer1Timer(Sender: TObject);// вывод картинок на image
begin
if i= foto.Count-1 then exit;
image1.Picture.LoadFromFile(foto.Items.strings[i]);
inc(i);
end;
end
Разместил:
admin
| | Прочитано: 73698 | |
Смотрите также связанные новости
08.09.2024 -
Кроссворд на Delphi
08.09.2024 -
Рождение, жизнь и гибель формы
08.09.2024 -
Воспроизводим Flash-файл в своем приложении
08.09.2024 -
Работа с потоками в Delphi
08.09.2024 -
SQL-запросы в Delphi
08.09.2024 -
BlobField как Bitmap
08.09.2024 -
Запись и чтение чисел в BLOB-поле
Vladimir
Дата: 08.09.2024
Комментарий: 1
Спасибо. Очень понравилось
Дата регистрации:
Нет информации
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Поочередно
показываем
рисунки
нас
ест
форма
на
ней
Image1
Timer1
диске
одной
папке
содержатся
рисунки
Попытаемся
поочередно
показывать
эти
image1
Кодunit
Unit1
interface
uses
Windows
Messages
SysUtils
Variants
Classes
Graphics
Controls
Forms
Dialogs
StdCtrls
ExtCtrls
type
TForm1
class
TForm
Button1
TButton
TImage
TTimer
foto
TListBox
procedure
Button1Click
Sender
TObject
Timer1Timer
private
Private
declarations
public
Public
Form1
word
implementation
ShellAPI
ShlObj
Нужны
для
работы
диалогом
выбора
dfm}
FillBMPFileList
Folder
string
TStrings
процедура
добавления
файлов
список
TSearchRec
begin
Clear