for (short int i = 0; i < anz; i++)
  {
    Pdeck[i] = new TPanel(this);  // Panel erstellen
    Pdeck[i]->Parent = this;
    Pdeck[i]->Width = 71;
    Pdeck[i]->Height = 96;
    Pdeck[i]->Top = 20;
    Pdeck[i]->Left = x;
   // Pdeck[i]->BevelOuter = bvNone;
    Ideck[i] = new TImage(Pdeck[i]);  // Images erstellen (auf dem Panel)
    Ideck[i]->Parent = this;
    Ideck[i]->Width = 71;
    Ideck[i]->Height = 96;
    Ideck[i]->Top = 80;
    Ideck[i]->Left = x;
    Ideck[i]->Cursor = crHandPoint;
    Ideck[i]->Picture->Bitmap->LoadFromResourceID((int)HInstance,Zufall[i]);
    x += 4;
  }

Warum auf dem Panel ? Damit ich den Images eine "Verschiebefunktion" geben kann. Weis einer wie ich das dynamisch hinbekommen kann, das es für jedes Image geht ?

void __fastcall TForm1::ImagecardMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Button==mbLeft)  // Cardpanel gibts nur einmal hier müsste ein Sender hin?
  {
    ReleaseCapture();
    SendMessage(Cardpanel->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
  }
}

Vielen Dank für eure Bemühungen

Ideck[i]->Parent = this;

wenn du das Image auf dem Panel erstellen willst? this ist dein Form und nicht das Panel

Ideck[i]->Parent = Pdeck[i];

ist da die richtige Zuweisung

und schau dir auch diesen FAQ-Beitrag zu dynamischen Komponenten und diesen zu Sendernamen bei Prozeduren an

Wiegesagt ich habe schon viel ausprobiert, mit unter auch dein Vorschlag nur dann sehe ich keine Images ! Ich möchte die Images auf den Panels erstellen damit ich die "Verschiebefunktion" verwenden kann. Der Link im Bezug auf Sender hilft mir nicht viel weiter, 1. ist dort leider kein kleines Beispiel und 2. bin ich mir nicht sicher ob das funktioniert denn, wenn ich ein Image verschieben will dann tut er es laut Funktion ja mit dem Panel. Also brauch ich dort eine Beziehung.
Ich würde es ja auch gerne anders lösen, also nur mit den Images aber ein Image hat kein "Handle" ...

mfg

int OldMouseX, OldMouseY;

im MouseDown-Event des Images;

if (Button == mbLeft)
  {
    OldMouseX = X;
    OldMouseY = Y;
  }

im MouseMove-Event des Images;

int iDeltaX, iDeltaY;
  if (Shift.Contains(ssLeft))
  {
    NewX = X - OldMouseX;
    NewY = Y - OldMouseY;
    Image1->Top = Image1->Top + NewY;
    Image1->Left = Image1->Left + NewX;
  }

Hallo danke für die Antwort.

Wiegesagt ich habe schon viel ausprobiert, mit unter auch dein Vorschlag nur dann sehe ich keine Images ! (...)

mfg

Die Left und Top Positionen des Images solltest du z.B. mal auf 0 setzen,
danach müsstest du dein Image sehen.

Danke für alles

wenn man zur Laufzeit Komponenten erstellt und ihnen eine Onclick-Ereignis zuweist dann muss ja schon eins da sein also müsste ich ja extra ein Image schon auf der Form haben oder ?

Nein, du brauchst keine Image-Komponente dafür. Sondern nur die manuell angelegte Form-Methode. Erstell als Vorlage eine solche und schau die Parameter an, und vergiß den Header des Forms nicht.

bis bald
akari

// Codeausschnitt
    Ideck[i] = new TImage(this);  // Images erstellen
    Ideck[i]->Parent = this;
    Ideck[i]->Width = 71;
    Ideck[i]->Height = 96;
    Ideck[i]->Top = 0;
    Ideck[i]->Left = 0;
    Ideck[i]->Cursor = crHandPoint;
    // Zufälliges Bild laden
    Ideck[i]->Picture->Bitmap->LoadFromResourceID((int)HInstance,Zufall[i]);
    Ideck[i]->OnMouseDown = CardDown;  // Eventeigenschaften
    Ideck[i]->OnMouseMove = CardMove;

// CardDown
void __fastcall TForm1::CardDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Button == mbLeft)
  {
    OldMouseX = X;
    OldMouseY = Y;
  }
}

// CardMove
void __fastcall TForm1::CardMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  int NewX, NewY;
  if (Shift.Contains(ssLeft))
  {
    NewX = X - OldMouseX;
    NewY = Y - OldMouseY;
    dynamic_cast<TImage*>(Sender)->Top = dynamic_cast<TImage*>(Sender)->Top + NewX;
    dynamic_cast<TImage*>(Sender)->Left = dynamic_cast<TImage*>(Sender)->Left + NewY;
  }
}

Ich kannte das mit dem dynamic_cast garnicht ich dachte "TImage(Sender)" so in der Art aber geht nicht, glaube das war Delphi...
Sorry wenn ich mit sowas "banalem" ankomme, ich wüsste nicht wie es es sonst lösen kann, also danke nochmal an die Helfer

void __fastcall TForm1::CardMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if (Shift.Contains(ssLeft))
  {
    int NewX = X - OldMouseX;
    int NewY = Y - OldMouseY;
    TImage* image = dynamic_cast<TImage*>(Sender);
    if( image != 0)
    {
       image->Top = image->Top + NewX;
       image->Left = image->Left + NewY;
    }
  }
}

Ansonsten noch was zu dynamic_cast
http://tutorial.schornboeck.net/dynamic_cast.htm
siehe dazu auch die FAQ des C++Forums.

Danke

Ich wünschte es gebe so ein Online-Manual wie bei php das php.net