hopsender Label

Renate

Wie muss ich hier programmieren, dass der hopsende Label mit einem einmaligem click bis zum minimun oben, minimun links, maximum rechts und maximum unten hopst also quasi wie ein Ball
Ich dachte an eine for-Schleife

private:
  int maxheight;  // Maximalhöhe festlegen
  int maxwidth;   // Maximalbreite festlegen
//--------------------------------------------------------------------------- 

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
   maxheight = 350;
   maxwidth = 650;
}
//--------------------------------------------------------------------------- 

void __fastcall TForm1::Button_obenClick(TObject *Sender)
{
   if(Label_1->Top <= 11) {
      ShowMessage("minimun oben erreicht");
   }
   else {
      Label_1->Top = Label_1->Top -10;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button_linksClick(TObject *Sender)
{
   if(Label_1->Left <= 11) {
      ShowMessage("minimun links erreicht");
   }
   else {
      Label_1->Left = Label_1->Left - 10;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button_rechtsClick(TObject *Sender)
{
   if(Label_1->Left >= maxwidth) {
      ShowMessage("maximum rechts erreicht");
   }
   else {
      Label_1->Left = Label_1->Left +10;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button_untenClick(TObject *Sender)
{
   if(Label_1->Top >= maxheight) {
      ShowMessage("maximum unten erreicht");
   }
   else {
      Label_1->Top = Label_1->Top + 10;
   }
}

Wieso denn noch einen neuen Thread?!?

akari

Hallo

hier gehts weiter.

bis bald
akari