problem with Image visibility

[MechanicalBoy]

I have two buttons on the form (butt1 and butt3).
when i click on butt1 i start the following fuction :

void __fastcall TForm1::butt1Click(TObject *Sender)
{
if((IMG = new TImage(this))!=NULL) ShowMessage("Error ! [cannot create it]"
IMG->SetBounds(10,10,60,60);
IMG->Canvas->Brush->Color = clBlue;
IMG->Canvas->FillRect(Rect(0,0,IMG->Width,IMG->Height));
IMG->Visible = true;
}

but why the image (IMG) is not visible ???

Thanks for any help
RafalP

 

[2ffat]

What happens when you refresh or redraw your form?
James P. Cottingham

I am the Unknown lead by the Unknowing.
I have done so much with so little
for so long that they think I am now
qualified to do anything with nothing.

 

[arcbkc]

Hi

try this....
--------------------------------------------------------

TImage *IMG; // ** I assume you did this somewhere else?
if((IMG = new TImage(this))==NULL)
ShowMessage("Error ! [cannot create it]"
//---
Form1->InsertControl(IMG); //** ADDED THIS LINE **
//---
IMG->SetBounds(10,10,60,60);
IMG->Canvas->Brush->Color = clBlue;
IMG->Canvas->FillRect(Rect(0,0,IMG->Width,IMG->Height));
IMG->Visible = true;

---------------------------------------------------- Rod