Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Delphix Tdximagelist dynamisch erstellen

**Pelzi**

Hi
Ich brauche eine klasse die von Tdximagelsit abstammt. Nun muss ich in diese dynamisch erstellen. Also hab ich mich ein wenig in der Klasse umgesehen und bin zu dem Schluss gekommen, dass ich so eine Imagelist dynmisch erstelle, ein bild reinlade und es anzeige, es funktioniert aber nciht, keine fehlermeldung, nichts es wird einfach nur nciht angeziegt:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DXDraws, ExtCtrls;

type

  TForm1 = class(TForm)

    DXDraw1: TDXDraw;

    Button1: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  imagelist: Tdximagelist;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

  var bild: TPicture;

begin

 imagelist:=Tdximagelist.Create(dxdraw1);

 bild:=TPicture.Create();

 imagelist.DXDraw:=dxdraw1;

 imagelist.Items.Add;

 bild.LoadFromFile('H:\Dokumente und Einstellungen\ICH\Eigene Dateien\Meine Programme\Delphi\Spiel\1.bmp');

 imagelist.items[0].Picture:=bild;

 if not DXDraw1.CanDraw then

  begin

      showmessage('Ich liebe dich');

      Exit;

  end;

 blub.Items[0].Draw(dxdraw1.surface,0,0,0);

 dxdraw1.Flip;

end;

end.

Ich kann das bild in einem Image anzeigen. Es leigt also definitiv an der imagelist. Weiß jemand was ich machen muss, damit es funktioniert?

PElzi