"Delphi. Учимся на примерах" - читать интересную книгу автора (Парижский Сергей Михайлович)
Разработка программного кода
Теперь создадим обработчики события OnClick для пунктов меню. Для команды Файл#8594;Открыть:
procedure TForm1.N2Click(Sender: TObject);
begin
//начинаем обзор с текущей папки
Open1.InitialDir:= GetCurrentDir;
//открываем диалоговое окно выбора файла
if Open1.Execute then begin
//загружаем выбранный рисунок
Image1.Picture.LoadFromFile(Open1.FileName);
Image1.Show; //отображаем рисунок на форме
end
else //Если рисунок не был выбран
ShowMessage('Вы не выбрали рисунок!');
Image1.Show;
end;
Здесь мы просто открываем диалоговое окно выбора рисунка, и, если пользователь выбрал рисунок, то загружаем его в компонент Image1 и отображаем на форме.
Обработчик события OnClick для пункта меню Файл#8594;Сохранить:
procedure TForm1.N3Click(Sender: TObject);
begin
if Save1.Execute then //сохранение рисунка
Image1.Picture.SaveToFile(Save1.FileName)
else ShowMessage('Рисунок не был сохранен!');
end;
Здесь мы открываем диалоговое окно сохранения рисунка, и, если пользователь выбрал место сохранения файла, извлекаем этот путь (свойство Save1.FileName) и сохраняем отображаемый в данный момент рисунок.
Обработчик события OnClick для пункта меню Файл#8594;Выход:
procedure TForm1.N5Click(Sender: TObject);
begin
Halt; //завершение работы программы
end;
Обработчик события OnClick для пункта меню Правка#8594;Очистить:
procedure TForm1.N7Click(Sender: TObject);
begin
Image1.Hide; //прячем рисунок
end;
Единственное, чего не достает этой программе, — это возможность открывать с ее помощью рисунки в файл-менеджерах. Реализуем эту возможность, добавив следующий код в обработчик события OnCreate главной фoрмы.
procedure TForm1.FormCreate(Sender: TObject);
var
Str:String; //путь к файлу, который поступил как параметр
i:Integer;
begin
if (ParamCount gt; 0)
then //если на вход программы поступил параметр
begin
//составляем путь к файлу по символам
Str:= ParamStr(1);
for i:= 2 to ParamCount do Str:= Str + ' ' + ParamStr(i);
При создании формы выполняется проверка: запускается ли программа с параметрами. Если на вход поступили параметры, то определяем путь к рисунку и отображаем его на форме. Программа просмотра рисунков в действии представлена на рис. 6.4.