
29/03/2008, 18:16
|
| | Fecha de Ingreso: marzo-2008
Mensajes: 8
Antigüedad: 17 años Puntos: 0 | |
¿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. |