Como cargar una image desde un OpenPictureDialog1

[[nlsgarcia]]

Salnhack,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   OpenPictureDialog : TOpenPictureDialog;
begin
   OpenPictureDialog := TOpenPictureDialog.Create(Self);
   OpenPictureDialog.InitialDir := GetCurrentDir;
   OpenPictureDialog.Options := [ofFileMustExist];
   OpenPictureDialog.Filter := 'Icons Files|*.ico|Bmp Files|*.bmp';
   OpenPictureDialog.FilterIndex := 1;
   if OpenPictureDialog.Execute then
      Image1.Picture.LoadFromFile(OpenPictureDialog.FileName);
   OpenPictureDialog.Free;
end;

El código anterior funciona correctamente con archivos de tipo ICO y BMP.

Verifica que tus archivos con extensión ICO correspondan al tipo que sugiere la extención y no presenten problemas en su estructura.

Espero sea útil

Nelson.