線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:946
推到 Plurk!
推到 Facebook!

(新手發問) 我想拖移圖片 但圖片不能隨我滑鼠移動 可否像接龍(Game)那樣拖移呢?

尚未結案
mxzxcv
一般會員


發表:5
回覆:2
積分:1
註冊:2011-08-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-08-28 22:34:08 IP:118.160.xxx.xxx 訂閱
(新手發問) 我想拖移圖片  但圖片不能隨我滑鼠移動  可否像接龍(Game)那樣拖移呢?

我設有兩個Iamge元件

[code cpp]
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "u8_work.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x1,y1; //座標
int dx,dy; //座標
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::img1DragDrop(TObject *Sender, TObject *Source,
int X, int Y)
{
imgK->Visible=false;
TImage*DestImg=(TImage*)Sender;
DestImg->Picture=((TImage*)Source)->Picture;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::img1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept=Source->ClassNameIs("TImage");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
imgK->Left=X;
imgK->Top=Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
x1=imgK->Left;
y1=imgK->Top;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::imgKEndDrag(TObject *Sender, TObject *Target,
int X, int Y)
{
imgK->Left=x1;
imgK->Top=y1;
}
//---------------------------------------------------------------------------

[/code]

想問的就是我在拖移時 滑鼠拖到 自己Image元件的範圍時 就會不能拖移
能拖移的方向 只有如圖畫的那些方位 其餘的都不太能


附加檔案:4e5a51e017b07_test.jpg
系統時間:2017-11-20 17:23:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!