¿Porque se me queda colgado Builder ante este codigo? Hola!
Quiero insertar una imagen introduciendo el nombre del archivo en un TEdit e insertar la imagen mediante TImage con las propiedades "AutoSize" y "Center" a true. Ademas pretendo controlar la excepcion de que el archivo no existiera o estruviera dañado, para todo esto utilizo el siguiente codigo:
(En el evento "OneKeyPress" del campo Edit)
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
try
{Image1->Picture->LoadFromFile(Edit1->Text);}
catch (...)
{ShowMessage("Archivo no se encuentra o Incorrecto");}
Edit1->SelectAll();
}
}
¿Porque se queda colgado el programa?¿He pasado por alto algo importante?
Saludos y Gracias de antemano.
