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

滑鼠移到物件的角落,滑鼠如何自動變成各方向的圖案

答題得分者是:jow
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-11-30 11:49:05 IP:61.221.xxx.xxx 訂閱
各位老大,我的image物件,需要可以手動拉大縮小

那...

1)滑鼠移到image物件的角落,滑鼠指標如何變換成那三種方向圖
2)如何對應各角落不同的事件?還是只要一個事件即可(再判斷是在那個角落)?

困擾很久了 大家幫幫忙
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-11-30 16:45:49 IP:210.66.xxx.xxx 訂閱
........

[code cpp]
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->OnMessage = DO_OnMessage;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DO_OnMessage(tagMSG &Msg, bool &Handled)
{
if(Msg.message==WM_MOUSEMOVE){
TPoint p;
GetCursorPos(&p);
p=Image1->ScreenToClient(p);
int index = -1;
for(int i=0; i<4; i ){
TRect r=Rect(0,0,0,0);
switch(i){
case 0: OffsetRect(r, 0, 0); break;
case 1: OffsetRect(r, Image1->Width-1, 0); break;
case 2: OffsetRect(r, Image1->Width-1, Image1->Height-1); break;
case 3: OffsetRect(r, 0, Image1->Height-1); break;
}
InflateRect(&r,5,5);
if(PtInRect(&r, p)){
index = i;
break;
}
}
switch(index){
case 0: case 2: Image1->Cursor = crSizeNWSE; break;
case 1: case 3: Image1->Cursor = crSizeNESW; break;
default: Image1->Cursor = crDefault; break;
}
}
}
//---------------------------------------------------------------------------
[/code]

===================引 用 harktrip 文 章===================
各位老大,我的image物件,需要可以手動拉大縮小

那...

1)滑鼠移到image物件的角落,滑鼠指標如何變換成那三種方向圖
2)如何對應各角落不同的事件?還是只要一個事件即可(再判斷是在那個角落)?

困擾很久了 大家幫幫忙
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-12-01 08:16:51 IP:61.221.xxx.xxx 訂閱
恩恩恩,太感謝了,科學多了~


jow老大,請教一下,
現在滑鼠狀態改變了,
那我按下滑鼠,也是用這相同的方法去做不同的工作嗎?

另外,點下去拖曳的功能,這要如何做到?
jenwe
一般會員


發表:34
回覆:38
積分:24
註冊:2007-03-23

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-12-03 16:26:29 IP:140.118.xxx.xxx 訂閱

也許你可以買一本書~叫做C Builder6 與影像處理 黃文吉 著
儒林 出版的
裡面講很多關於你問的問題~~提供給妳參考一下


===================引 用 harktrip 文 章===================
恩恩恩,太感謝了,科學多了~


jow老大,請教一下,
現在滑鼠狀態改變了,
那我按下滑鼠,也是用這相同的方法去做不同的工作嗎?

另外,點下去拖曳的功能,這要如何做到?
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-12-06 13:13:56 IP:61.221.xxx.xxx 訂閱
恩恩,今天已經上網訂購了
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-12-13 08:24:21 IP:61.221.xxx.xxx 訂閱
收到書了,內容不多,不過都還滿實用的
系統時間:2024-11-26 3:33:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!