http://uploaded.to/?id=bl2rg3

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "blau.res"
#define BallGroesse 50
TForm1 *Form1;
Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
int CurrXLeft, CurrYTop, CurrXRight, CurrYBottom;
bool MousePressed;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
CurrXLeft=Form1->Width-BallGroesse/2;
CurrYTop=Form1->Height-BallGroesse/2;
CurrXRight=Form1->Width+BallGroesse/2;
CurrYBottom=Form1->Height+BallGroesse/2;
Timer1->Interval = 15;
Timer1->Enabled = true;
Bitmap1->LoadFromResourceName((int)HInstance,"Blau");
Form1->Canvas->StretchDraw(Rect(CurrXLeft,CurrYTop,CurrXRight,CurrYBottom),Bitmap1);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
CurrYTop++;
CurrYBottom++;
Form1->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
Form1->Canvas->StretchDraw(Rect(CurrXLeft,CurrYTop,CurrXRight,CurrYBottom),Bitmap1);
if ( CurrYBottom >= Form1->Height )Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if (  (( X >= CurrXLeft )&&( X <= CurrXRight ))&&(( Y >= CurrYTop )&&( Y <= CurrYBottom )) )MousePressed = true;
Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if ( MousePressed ){
        if (( X < Form1->Width-100 ) && ( X > 0 ) && ( Y < Form1->Height-100 ) && ( Y > 0 ) ){
        Form1->Canvas->Brush->Color = clWhite;
        Form1->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
        Form1->Canvas->StretchDraw(Rect(X,Y,X+BallGroesse,Y+BallGroesse),Bitmap1);
        CurrXLeft = X;
        CurrYTop  = Y;
        CurrXRight  = X+BallGroesse;
        CurrYBottom = Y+BallGroesse;
        }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
MousePressed = false;
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

so soweit ist ja alles okay. aber sagen wir mal ich lasse die kugel fallen, ja?

dann fällt sie ja leicht verzögert. auch noch alles okay.

jetzt fahre ich aber mit der maus über die kugel und taddaah sie fällt flüssig.

wieso?

PS: Das kompillierte projekt mit alt - f4 beenden

und was wäre schönerer programmierstyl?

Vermutlich wäre es schöner, die ganzen Canvas-Ausgaben in das OnPaint-Ereignis zu packen und diese einfach mittels Invalidate() das Neuzeichnen auszulösen.

Das erste mal das ich von Invaliddate() höre aber der hilfe nach hörts sich gut an

Aber mal zur hauptfrage, warum läufst denn mit dem timer flüssig wenn die maus auf eines der objekte geht? ( habs mittlerweile in ne klasse gepackt )