Como cargar una image desde un OpenPictureDialog1

[Salnhack]

Empezado por 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.

Ok, gracias