請教各位大大
我以 Button2動態產生5個 sheet 在 PageControl1上 並每一Sheet 產生一個tmpImage1(背景圖)在每一Sheet上面
以Button1 動態產生10個 tmpImage2 在 GroupBox1 內
如何將GroupBox1 內的tmpImage2元件 可以隨意的拖放到PageControl1 內的任一Sheet (在背景圖之上)上呢?
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String PictureName ="a.bmp";
int left = 20;
for(int i=0 ; i< 10 ;i )
{
TImage *tmpImage2 = new TImage(GroupBox1);
tmpImage2->Parent = GroupBox1;
tmpImage2->Picture->LoadFromFile(ExtractFilePath("Application.ExeName") PictureName);
tmpImage2->Left =left;
tmpImage2->DragMode = dmAutomatic;
tmpImage2->Stretch = true ;
tmpImage2->ShowHint = true;
left =40;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
String filename="A.bmp";
for(int i=1 ;i <= 5; i )
{
TTabSheet *pPage = new TTabSheet(PageControl1);
TImage *tmpImage1 = new TImage(this);
pPage->PageControl = PageControl1;
pPage->Caption = "Floor" IntToStr(i);
tmpImage1->Parent = pPage;
tmpImage->Picture->LoadFromFile(ExtractFilePath("Application.ExeName") (filename));
tmpImage1->Stretch =true;
}
}
//---------------------------------------------------------------------------

附加檔案：4536da4fc82be_form1.JPG