Hi,
schreib mal statt:
Delphi-Quellcode:
procedure TForm1.DXDraw1Click(Sender: TObject);
begin
if not DXDraw1.CanDraw then
Exit;
DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
DXDraw1.Flip;
end;
lieber:
Delphi-Quellcode:
procedure TForm1.DXDraw1Click(Sender: TObject);
begin
if not DXDraw1.CanDraw then
ShowMessage('Kann nicht zeichnen');
DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
DXDraw1.Flip;
end;
Wenn nun die Meldung "Kann nicht zeichnen" kommt, stimmt etwas mit deinem
DirectX nicht. Vielleicht hast du's ja abgeschlatet.