[SOLVED] change sub form icon at runtime

[petevick]

I'm trying to change the icon of a sub form at run time, I'm using the following code....

Code: Pascal  [Select][+][-]

1.   ImageList1.GetBitmap(0, Image1.Picture.BitMap);
2.   Form2.Icon.Assign(Image1.Picture.Graphic);
3.  

....but I get an access violation error when I compile. There is definitely an image in ImageList1 and Image1 is declared  under TForm2 = class(TForm).
I'm beginning to think that it's not possible to change a sub form icon.

[Fibonacci]

What is Unit2? Is it a form name? Or a unit? Then what is the Icon inside Unit2?

Try this

Code: Pascal  [Select][+][-]

1. ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
2. Form2.Icon.Assign(Image1.Picture.Bitmap);

[petevick]

What is Unit2? Is it a form name? Or a unit? Then what is the Icon inside Unit2?

Try this

Code: Pascal  [Select][+][-]

1. ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
2. Form2.Icon.Assign(Image1.Picture.Bitmap);

my bad, mistyped, Unit2 should be Form2 

[Fibonacci]

So it works now or not?

[petevick]

So it works now or not?

sorry, no, it doesn't work

[Fibonacci]

Works for me

[petevick]

Works for me

Hmmm, there must be something in the rest of the code that's conflicting with it. 

[petevick]

Solved, it requires a physical TImage on the form rather that just declaring one 

Thanks Fibonacci for the gif that gave me the clue 

[Fibonacci]

Sure But it works without TImage on the form too

Code: Pascal  [Select][+][-]

1. with TImage.Create(nil) do begin
2.   ImageList1.GetBitmap(0, Picture.Bitmap);
3.   Form2.Icon.Assign(Picture.Bitmap);
4.   Free;
5. end;

or

Code: Pascal  [Select][+][-]

1. var
2.   b: TBitmap;
3. begin
4.   Form2.Show;
5.  
6.   b := TBitmap.Create;
7.   ImageList1.GetBitmap(0, b);
8.   Form2.Icon.Assign(b);
9.   b.Free;

[TRon]

Solved, it requires a physical TImage on the form rather that just declaring one 

Uhm, yes ? Classes requires to be instantiated ? see also manual.

So, either you use the designer to let the form do it automatically for you or manually as shown by Fibonacci.

[petevick]

Sure But it works without TImage on the form too

Code: Pascal  [Select][+][-]

1. var
2.   b: TBitmap;
3. begin
4.   Form2.Show;
5.  
6.   b := TBitmap.Create;
7.   ImageList1.GetBitmap(0, b);
8.   Form2.Icon.Assign(b);
9.   b.Free;

I like that method, thanks Fibonacci for the help and guidance