| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 16 樓
|
 發表於: 星期四 九月 26, 2013 8:39 am 文章主題: |
 |
|
| ckp6250 寫到: | foxy的作法，百分之百可行
(沒方向盤都能上路了，加貼了隔熱紙，也沒理由不能上路)
是您誤解他的意思了 |
小弟知道可行,
因為小弟目前也是這樣用,
但是如果快速將鼠標移出表單外,
一樣會失效...除非慢慢移出!
Container1 MouseLeave Procedure
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF _hide_flag
IF nXCoord<0 OR nXCoord>this.width-1 OR nYCoord<0 OR nYCoord>this.height-1
WITH &mainmenu
.alwaysontop=.T.
.main_mask.zorder(0) && 置於圖層前方
oMleft=IIF(.top>=0,.left,oMleft) && 主選單目前位置
oMtop=IIF(.top>=0,.top,oMtop) && 主選單目前位置
.top=0-(.height+1)
.left=0
.width=SYSMETRIC(1)
ENDWITH
ENDIF
ENDIF |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 17 樓
|
| 發表於: 星期四 九月 26, 2013 9:06 am 文章主題: |
|
|
| jerryclt 寫到: | S大,
小的測試良久,
發現除了放在 timer 裡以外,
其他地方都無效.
可是這會影響執行效能 = =" |
大家不就要問你要做什麼?
這樣才能找到最合適的事件來做.
你要硬搞,結果就是這樣.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 18 樓
|
| 發表於: 星期四 九月 26, 2013 9:21 am 文章主題: |
|
|
其實前面已經陸續說清小弟的意圖了(10樓),
再明白點請參考下面二圖,
mtest-001中紅色標示 1,2,3 代表滑鼠位置,
當從 1 (container)快速移至 2 (主選單)時會得到mtest-002的效果,
整個主選單隱藏在螢幕最上方只伸出一小部份(就像隱藏的 windows 工作列);
當從 1 快速移至 3 (桌面)時就沒有反應了!
jerryclt 在 星期四 九月 26, 2013 10:35 am 作了第 1 次修改 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 19 樓
|
| 發表於: 星期四 九月 26, 2013 10:01 am 文章主題: |
|
|
看來，Timer是免不了啦
但，效能就要斤斤計較了
魚與熊掌不可兼得呀!
千萬不要鴨蛋換豬頭! |
|
| 回頂端 |
|
|
saint
註冊時間: 2003-07-14
文章: 211
第 20 樓
|
| 發表於: 星期四 九月 26, 2013 10:29 am 文章主題: |
|
|
所以3，這個點是在你的程式中的form?
還是已經來到了windows的桌面了? |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 21 樓
|
| 發表於: 星期四 九月 26, 2013 10:39 am 文章主題: |
|
|
| saint 寫到: | 所以3，這個點是在你的程式中的form?
還是已經來到了windows的桌面了? |
桌面...18樓有寫得很清楚! |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 22 樓
|
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 23 樓
|
| 發表於: 星期四 九月 26, 2013 11:51 am 文章主題: |
|
|
要不用timer 這種 polling的方式,
就要改用"HOOK"系統的MOUSE訊息. XD
WIN32API "SetWindowsHookEx"
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 24 樓
|
| 發表於: 星期四 九月 26, 2013 1:58 pm 文章主題: |
|
|
| syntech 寫到: | 要不用timer 這種 polling的方式,
就要改用"HOOK"系統的MOUSE訊息. XD
WIN32API "SetWindowsHookEx"
|
SetWindowsHookEx 不是也有頻率的問題嗎? |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 25 樓
|
| 發表於: 星期四 九月 26, 2013 1:59 pm 文章主題: |
|
|
| syntech 寫到: | 要不用timer 這種 polling的方式,
就要改用"HOOK"系統的MOUSE訊息. XD
WIN32API "SetWindowsHookEx"
|
SetWindowsHookEx 不是也有頻率的問題嗎? |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 26 樓
|
| 發表於: 星期四 九月 26, 2013 2:38 pm 文章主題: |
|
|
不是我的問題. ╮(╯_╰)╭
我的意見就是5樓.
超出form或foxpro exe 的範圍,
就不應該是我商務系統應該處理的範圍.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 27 樓
|
| 發表於: 星期四 九月 26, 2013 3:57 pm 文章主題: |
|
|
還好不是你的問題,
要是連你都有問題,
麻煩就大了,
全世界大概也都有問題了!
沒關係,
利用_SCREEN做個假桌面,
應該可以矇過去. |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 28 樓
|
| 發表於: 星期四 九月 26, 2013 4:55 pm 文章主題: |
|
|
等您做出來後，
務必貼上來分享哦! |
|
| 回頂端 |
|
|
saint
註冊時間: 2003-07-14
文章: 211
第 29 樓
|
| 發表於: 星期四 九月 26, 2013 10:25 pm 文章主題: |
|
|
手上只有8，最多只能做到這樣
有時候會沒有捉到leave
真的奇怪
VFP9 的form好像已經有加入了mouseleave ？？
| 代碼: |
define Class formLostFocus as Form
Width = 600
Height = 500
windowtype = 1
add Object container1 as container
procedure init
this.container1.Width = this.Width -6
this.container1.Height = this.Height -6
this.container1.Left = this.Width - this.container1.Width -3
this.container1.Top = this.Height - this.container1.Height -3
endproc
procedure container1.mouseleave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
? str(nXCoord) + ":" + str(nYCoord)
endproc
enddefi |
|
|
| 回頂端 |
|
|
jerryclt
註冊時間: 2009-03-10
文章: 334
來自: 佛心來的
第 30 樓
|
| 發表於: 星期五 九月 27, 2013 6:40 am 文章主題: |
|
|
沒引發 MouseLeave 事件是因為滑鼠移動太快,
VFP9.0 也沒有 Form.MouseLeave 的事件薄!
jerryclt 在 星期五 九月 27, 2013 8:47 am 作了第 1 次修改 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
