Reply to TBitmap verschieben on Fri, 11 Aug 2006 13:15:10 GMT

Beppo — Fri, 11 Aug 2006 13:15:10 GMT

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

Reply to TBitmap verschieben on Sat, 12 Aug 2006 10:45:39 GMT

Jansen — Sat, 12 Aug 2006 10:45:39 GMT

Beppo schrieb:

Wie verfahre ich hier?

Du siehst in der FAQ unter "Forms" nach.

Reply to TBitmap verschieben on Sat, 12 Aug 2006 19:19:25 GMT

Beppo — Sat, 12 Aug 2006 19:19:25 GMT

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