Problem mit Bewegung->Canvas

[mangaka]

Moin,
es geht gleich zur sache:
ich versuche einen balken mit hilfe des timers hin und herz zu bewegen wenn ich auf die pfeiltasten drücke. aber ich krieg das irgendwie nicht gebackn:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,Breite, Hoehe,i, z: Integer;
  oben, unten: Boolean;
  Quelle, Ziel: TRect;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x := 30;
  y := 180;
  Breite := 15;
  Hoehe := 100;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Space then
    begin
    Canvas.Brush.Color := clGreen;
    Canvas.Rectangle(x,y,x+Breite,y+Hoehe);
    end;

  if key = vk_Up then
    begin
    oben := true;
    end;

  if key = vk_Down then
    unten := true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Up then
    oben := false;

  if key = vk_Down then
    unten := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if oben then
    begin
    Canvas.Rectangle(x,y-10,x+Breite,y+Hoehe-10);
    end;

  if unten then
    begin
    Canvas.Rectangle(x,y+10,x+Breite,y+Hoehe+10);
    end;
end;

end.

eigentlich sollte der timer die prozdeur wiederholen und dann die canvas zeichnung immer neu zeichnene solange vk_up gedrückt ist...tut er aber nicht.
und da ist noch ein problem. habt ihr eine idee, wie ich es hinkriege, dass die zeichnung, die vorher da war, verschwindet?

vllt habe ihr ja ne bessere idee als das mit dem timer...
evtl könnt ihr auch was mit Canvas.CopyRect anfangen, aber ich schaff das damit nicht.

ich versuche das gleich auch in delphix mit hilfe der fillrect methode, doch bringt nix, ich bewege den balken nur um 10 einheiten und die zeichnung vorher beleibt auch da...

dass die zeichnung nicht verschwindet ist eigentlich nicht DAS problem, nur diese bewegungen...

[Jarmen_Kell]

Liegt daran, dass die Variablen immer den selben Wert behalten!
Anstatt "x+10" zu schreiben, solltest du einfach "x" nehmen, und den Wert von x dann jedes mal um z.B. 10 erhöhen

[mangaka]

geht nicht, daran habe ich auch schon gedacht...

aba dann wird der schläger, solange du ihn hälst immer schneller
10, 20, 30, 40...

aba weil das hier in dem timer ist müsste er ihn die ganze zeit um 10 nach oben schieben, weil er das ja wiederholt, tut er aba nicht.
mit panels ging das...

[mangaka]

habe die lösung...
vllt meintest du das sogar:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if oben then
  begin
    y:=y-10;
    Canvas.Rectangle(x,y,x+Breite,y+Hoehe);
  end;

  if unten then
  begin
    y:=y+10;
    Canvas.Rectangle(x,y,x+Breite,y+Hoehe);
  end;
end;

sry falsch ich dich falsch verstanden habe...
s

[Gandalfus]

Wenn och einer mangaka helfen will sollte er sich erst das durchlesen:
http://www.dsdt.info/YaBBSe/index.ph...25031;start=15