[DelphiX]Da sollte sich doch was bewegen ...

[Grobi]

Daran dachte ich auch, als ich schon zuvor den Foren Thread gelesen hatte. Aber daran lag es wirklich nicht ...

ich poste einfach nochmal den ganzen Code ... vielleicht findet ja jemand den fehler

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXClass, DXDraws, StdCtrls;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    DXTimer1: TDXTimer;
    procedure DXTimer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x: integer=0;
  y: integer=0;
  vx: integer=1;
  vy: integer=1;

implementation

{$R *.dfm}

procedure TForm1.DXTimer1Timer(Sender: TObject);
begin
  if not DXDraw1.CanDraw then
    Exit;
  x := x + vx;
  y := y + vy;
  if x <= 0 then
    vx := vx * - 1;

  if x >= dxdraw1.width - dximagelist1.Items[0].width then
    vx := vx * - 1;

  if y <= 0 then
    vy := vy * - 1;

  if y >= dxdraw1.height - dximagelist1.Items[0].height then
    vy := vy * - 1;

  DXImageList1.Items[0].Draw(DXDraw1.Surface, x, y, 0);
  DXDraw1.Flip;
end;


end.

Übrigens, hier das tut: http://www.delphi-treff.de/content/t...dex.php4?kat=3

Liegt es vielleicht auch daran, das ich Delphi6 benutze, die Komponente aber eigentlich für Delphi7 ist? Es kam kein Fehler beim installieren ...