TBitmap verschieben

Beppo

Hallo,
bin dabei, in einer TImage TBitmap zu erstellen. Dies funktioniert. Nun möchte ich zum Beispiel die dritte erstellte TBitmap verschieben. Habe mir vorgestellt, das ich diese mit der Maus anklicke, halte die Taste, und verschiebe diese. Wie verfahre ich hier?
Hier mein vorläufiger Code zum erstellen

void __fastcall TmyFormNewGleisbild::Button1Click(TObject *Sender)
{
//  
//
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
  try
  {
    pBitmap->LoadFromFile("ImageBitmap\\BogenRechts 30000.bmp");
    ImageBitmap->Canvas->Draw(25,25,pBitmap);
//
    pBitmap->LoadFromFile("ImageBitmap\\BogenRechts 30001.bmp");
    ImageBitmap->Canvas->Draw(125,25,pBitmap);
//
    pBitmap->LoadFromFile("ImageBitmap\\DiagonaleLinks 40500.bmp");
    ImageBitmap->Canvas->Draw(225,25,pBitmap);
//
    pBitmap->LoadFromFile("ImageBitmap\\DiagonaleRechts 40000.bmp");
    ImageBitmap->Canvas->Draw(325,25,pBitmap);
//
    pBitmap->LoadFromFile("ImageBitmap\\LeeresFeld 00000.bmp");  
    ImageBitmap->Canvas->Draw(425,25,pBitmap);
//
  }
  catch (...)
  {
    ShowMessage("Could not load or display bitmap");
  }
  delete pBitmap;
}
//---------------------------------------------------------------------------

Gruß Siegfried

Jansen

Beppo schrieb:

Wie verfahre ich hier?

Du siehst in der FAQ unter "Forms" nach.

Beppo

Hallo,
Danke für die schnelle Hilfe
Gruß Siegfried