滑鼠移到物件的角落,滑鼠如何自動變成各方向的圖案 |
答題得分者是:jow
|
harktrip
一般會員 發表:30 回覆:30 積分:12 註冊:2007-04-11 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
........
[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 發送簡訊給我 |
|
jenwe
一般會員 發表:34 回覆:38 積分:24 註冊:2007-03-23 發送簡訊給我 |
|
harktrip
一般會員 發表:30 回覆:30 積分:12 註冊:2007-04-11 發送簡訊給我 |
|
harktrip
一般會員 發表:30 回覆:30 積分:12 註冊:2007-04-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |