DelphiX für Anfänger (1)

[Die Muhkuh]

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.