Limpiar un TImage

[ecfisa]

Hola.

El código del primer mensaje debería borrar la imágen sin problemas, sería interesante verlo dentro del contexto ¿ Existe algún condicional previo al código ? por ejemplo:

Código PHP:

void __fastcall TForm1::qryTempAfterScroll(TDataSet *DataSet)
{
  if ( !qryTemp->FieldByName("FOTO")->IsNull ) {
    Image1->Picture = NULL;
    Image1->Picture->Assign( qryTemp->FieldByName("FOTO") );
  }
} 


provocaría precisamente ese comportamiento.

Pero por otro lado, el moldeo:

TImage *Imagen = static_cast<TImage>(Source);

me hace pensar que el código está en un evento del propio TImage ¿ en cuál ?

Tal vez con mas datos nos sea posible ver el motivo de ese extraño proceder.

Saludos