想請問一下如何用滑鼠拖曳圖片，我寫了程式雖然會動，但是沒辦法隨著滑鼠一起移動，想問問大家有沒有更好的辦法！ 以下是我的程式碼： void __fastcall TForm1::Image1DragDrop(TObject *Sender, TObject *Source, int X, int Y) { TImage *buf=(TImage *)Source; buf->Left=X; buf->Top=Y; } //------------------------------------------------------------------- void __fastcall TForm1::Image1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept=true; } 發表人 - taishyang 於 2004/04/19 20:54:48

試一下預被drag 的dragmode設為dmAutomatic

引言: 想請問一下如何用滑鼠拖曳圖片，我寫了程式雖然會動，但是沒辦法隨著滑鼠一起移動，想問問大家有沒有更好的辦法！ 以下是我的程式碼： 發表人 - taishyang 於 2004/04/19 20:54:48

試著在MouseMove時加入 buf->Left=X; buf->Top=Y; 然後MouseDown要設定一下 讓圖片被按下時才移動 不確定可以work,先試試吧~~

void __fastcall TForm1::Image1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept=true; ▲ buf->Left=X; ▲ buf->Top=Y; } OnDragOver：拖動經過時激發.... ▲ buf->Left=X; ▲ buf->Top=Y; 看一下...這兩行移位後有沒有幫助... 對了...可以參考http://delphi.ktop.com.tw/topic.php?topic_id=21808

kaka_0108您好:    請參考: 【問題】拖曳的問題  http://delphi.ktop.com.tw/topic.php?topic_id=49437    並請多多利用本站搜尋功能喔~~ ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

kaka_0108您好：    如果您只是要把Image抓著移來移去的話，那底下的程式碼可以供您參考。    

 
//---------------------------------------------------------------------------
int   prevX, prevY;
bool  drawing=false;    void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   drawing = true;
   prevX = X;
   prevY = Y;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if ( drawing )
    { int dx = X - prevX;
      int dy = Y - prevY;
      Image1->Top   = dy;
      Image1->Left  = dx;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  drawing = false;        
}
//---------------------------------------------------------------------------    

RichTop 敬上