zwei Fragen:
ich habe auf der Form verschiedene Images. Diese verbinde ich mit einer Linie, die ich per Canvas auf die Form male. Nun will ich bei Drag&Drop, dass die Linien mitwandern. Ich könnte sie auch beim MouseUp nach dem Drag&Drop alle neu zeichnen lassen, würde aber lieber die erste Variante nehmen. Hierfür ist mein Ansatz, dass ich bei jeder Mausbewegung die alte Linie durch die Hintergrundfarbe ersetze und zur aktuellen Position eine neue zeichne. Oder liege ich da falsch ?

Das Problem ist auch, dass ich per Drag&Drop die bestehenden Linien "wegwischen" kann, wenn das Image-Objekt darüber gezogen wird. Kann ich das verhindern ?

Peter

das ist mein Ansatz. Ich merke mir in einem Array zu jedem zur Laufzeit erzeugten Image die alten x/y Werte (Array Pos 2,3) und die aktuellen (0,1) an Pos. 4 steht die Verbindung zu einem anderen Image. Über das Kontextmenü wähle ich aus, dass eine Beziehung hergestellt werden soll und danach das Ziel-Image. Im Moment kommen alle Linien jeweils von oben links nach oben links. Will ich später in Abhängigkeit der Position jeweils in der Mitte der Außenseite plazieren.

Dann lasse ich es bei MouseUp neu zeichnen. Klappt halbwegs. Ist das denn ein Ansatz so ?

TImage *img[10];
int iPos[10][5];

void __fastcall TfrmMain::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   scX = X;
   scY = Y;
   scDyn = 1;
   if (Button == mbRight)
   {
      int iX = dynamic_cast<TImage*>(Sender)->Left + dynamic_cast<TImage*>(Sender)->Width + X + 10;
      int iY = dynamic_cast<TImage*>(Sender)->Top + Y + 150;
      iValue = StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false));
      objPopup->Popup(iX, iY);
   }

   if (Button == mbLeft)
   {
      if (bBeziehung == true)
      {
         bBeziehung = false;
         Label1->Visible = false;
         frmMain->Canvas->MoveTo(img[iVon]->Left, img[iVon]->Top);
         frmMain->Canvas->LineTo(dynamic_cast<TImage*>(Sender)->Left, dynamic_cast<TImage*>(Sender)->Top);
         int iValue2 = StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false));
         iPos[iValue2][0] = img[iValue2]->Left;
         iPos[iValue2][1] = img[iValue2]->Top;
         iPos[iVon][4] = iValue;
         IsDrawing = true;
      }
   }
}

void __fastcall TfrmMain::Image1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   if (scDyn == 1 && scX - X < 0)
   {
      dynamic_cast<TImage*>(Sender)->Left = dynamic_cast<TImage*>(Sender)->Left + (X - scX);
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Left = dynamic_cast<TImage*>(Sender)->Left + 16;
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Top = dynamic_cast<TImage*>(Sender)->Top + 16;
   }

   if (scDyn == 1 && scX - X > 0)
   {
      dynamic_cast<TImage*>(Sender)->Left = dynamic_cast<TImage*>(Sender)->Left - (scX - X);
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Left = dynamic_cast<TImage*>(Sender)->Left + 16;
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Top = dynamic_cast<TImage*>(Sender)->Top + 16;
   }

   if (scDyn == 1 && scY - Y < 0)
   {
      dynamic_cast<TImage*>(Sender)->Top = dynamic_cast<TImage*>(Sender)->Top + (Y - scY);
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Left = dynamic_cast<TImage*>(Sender)->Left + 16;
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Top = dynamic_cast<TImage*>(Sender)->Top + 16;
   }

   if (scDyn == 1 && scY - Y > 0)
   {
      dynamic_cast<TImage*>(Sender)->Top = dynamic_cast<TImage*>(Sender)->Top - (scY - Y);
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Left = dynamic_cast<TImage*>(Sender)->Left + 16;
      memo[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))]->Top = dynamic_cast<TImage*>(Sender)->Top + 16;
   }

   iPos[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))][0] = dynamic_cast<TImage*>(Sender)->Left;
   iPos[StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false))][1] = dynamic_cast<TImage*>(Sender)->Top;

   iValue = StrToInt(Separator(dynamic_cast<TImage*>(Sender)->Name, "T", 2, false));

   frmMain->SetFocus();
}

void __fastcall TfrmMain::Image1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   scDyn = 0;
   for (int i = 0; i < 10; i++)
   {
      if (iPos[i][4] != 0)
      {
         frmMain->Canvas->MoveTo(iPos[i][0], iPos[iVon][1]);
         frmMain->Canvas->LineTo(iPos[iPos[i][4]][2], iPos[iPos[i][4]][3]);

         frmMain->Canvas->MoveTo(iPos[i][0], iPos[iVon][1]);
         frmMain->Canvas->LineTo(iPos[iPos[i][4]][0], iPos[iPos[i][4]][1]);
      }
   }
}

void __fastcall TfrmMain::FesteBeziehung1Click(TObject *Sender)
{
   Label1->Left = iMouseX - 30;
   Label1->Top = iMouseY + 30;
   Label1->Visible = true;
   bBeziehung = true;
   iVon = iValue;
   scDyn = 0;
   iPos[iValue][0] = img[iValue]->Left;
   iPos[iValue][1] = img[iValue]->Top;
}

void __fastcall TfrmMain::Image1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   TImage* img = dynamic_cast<TImage*>(Sender); 
   if( img )
   {
// dann mit img weiter arbeiten

3. Verwende bitte die C++Tags, dann gibt es auch Syntax-coloring