原始code 如下
.h file
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include
#include
#include
#include <Forms.hpp><br />#include
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TPageControl *PageControl1;
TTabSheet *TabSheet1;
TButton *Button1;
TTabSheet *TabSheet2;
TTabSheet *TabSheet3;
TTabSheet *TabSheet4;
TTabSheet *TabSheet5;
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
TImage *image[10];
__fastcall TForm1(TComponent* Owner);
__fastcall open();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//...............................................................................................................................................................................................
//---------------------------------------------------------------------------
#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)
{
int top =0;
int left =0;
for(int i =0 ; i<10 ;i )
{
image[i] = new TImage(this);
image[i]->Parent = PageControl1->ActivePage;
image[i]->Picture->LoadFromFile("c:\\office.bmp");
image[i]->Top = top;
image[i]->Left = left;
image[i]->Width = 30 ;
image[i]->Height = 30 ;
image[i]->Stretch = true ;
image[i]->DragMode = dmAutomatic;
// image[CsrNO]->OnClick = openCamera;
top = 40;
left = 40;
}
}
//---------------------------------------------------------------------------

我在TForm1上有PageControl1 (5 Sheet) 及Button1 當按下Button1時 在Sheet 上長出十個圖片
然後需要在 滑鼠點圖片後 可以 作以下的動作
1.開啟 TForm2 的動作
2. 可以拖拉圖片
3. 雙點擊 可以刪除圖片物件 請教各位大大 我該如何去作呢?

參考這篇 http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=84652