[Delphi] TImage in runtime... niet zichtbaar

[Hu9o]

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyImage:TImage;
begin
  MyImage:= TImage.Create(Self);
  try
    ImageList1.GetBitmap(0,MyImage.Picture.Bitmap);
    MyImage.Left:=0;
    MyImage.Top:=0;
    MyImage.Width:=100;
    MyImage.Height:=100;
  finally
    MyImage.Free;
  end;
end;

Met deze code krijg ik dus niet het plaatje dat in de imagelist zit op het beeld te zien.
Ik heb ook nog geprobeerd met:

• MyImage.Show; MyImage.Enabled:=true; MyImage.Refresh; MyImage.Repaint;

Kan iemand me zeggen wat ik verkeerd doe?

[Delpix]

Messchien helpt dit:

code:

Myimage.parent := Form1

EDIT: en zo aan je de code te zien wordt de MyImage ook weer direct verwijdert. Dan zie je hem ook niet.

[Verwijderd]

Probeer inderdaad maar gewoon een try except in plaats van een try finally. Finally gaat af zodra de assignments binnen try zijn afgehandeld. Except, alleen als er een exception optreedt.

[Hu9o]

Op vrijdag 24 mei 2002 14:37 schreef Delpix het volgende:
Messchien helpt dit:

code:

Myimage.parent := Form1

EDIT: en zo aan je de code te zien wordt de MyImage ook weer direct verwijdert. Dan zie je hem ook niet.

Ja idd, maar in de echt code heb ik die finally er niet in zitten. Die heb ik ff fout gecopieerd.

Maar het werkt met Myimage.parent := Form1


Bedankt