Стр. 195 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
195
Form1.Image1.Picture.LoadFromFile(ms[curr]);
//вывод имени картинки
Form1.Caption:='Просмотр иллюстраций'+#32+'
"'+ExtractFileName(ms[curr]) +'"';
end;
10. Создадим процедуру Button2Click для обработки события OnClick
компонента Button2 – вперед. Оформим ее следующим образом.
//процедура выполняется при нажатии на кнопку вперед – «>>»
procedure TForm1.Button2Click(Sender: TObject);
begin
//текущий элемент динамического массива
inc(curr);
//если текущий элемент стал больше длины динамического массива
if curr=ms_count then
//текущим элементом становится первый элемент массива
curr:=0;
//загрузка картинки их файла
Form1.Image1.Picture.LoadFromFile(ms[curr]);
//вывод имени картинки
Form1.Caption:='Просмотр иллюстраций'+#32+
'"'+ExtractFileName(ms[curr]) +'"';
end;
11. Создадим процедуру Edit1Change для обработки события OnChange
компонента Edit1. Оформим ее следующим образом.
//процедура выполняется при изменении текста в окне
procedure TForm1.Edit1Change(Sender: TObject);
begin
//вызов процедуры GetPicturePath
GetPicturePath(Edit1.Text);
end;
12. Создадим процедуру RadioGroup1Click для обработки события
OnClick компонента RadioGroup1. Оформим ее следующим образом.
//выполняется при щелчке мышью по компоненту RadioGroup1
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
//вызов процедуры GetPicturePath
GetPicturePath(Edit1.Text);
end;