Создадим приложение для выбора графического файла и вывода его содержимого в окно. На форме расположим компоненты Image, Button, OpenPictureDialog (OPD), StatusBar (SB) для вывода полного имени показываемого файла.
При щелчке по кнопке «Открыть», должно появляться стандартное диалоговое окно открытия графического файла.
procedure TForm1.Button1Click(Sender: TObject);
Begin
If OPD.Execute and FileExists(OPD.FileName) then
Begin
Image1.Picture.loadfromfile(OPD.FileName);
Image1.stretch:=true;
SB.simpletext:=OPD.FileName;
end;
end;
