 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期一 九月 01, 2003 6:21 pm 文章主題: 如何移動無標題表單(轉貼) |
 |
|
來源:狐皮超市
移動無標題表單
*-- 將下面代碼複製到一個程式檔中並運行該檔
*-- 若要在設計時實現該功能
*-- 向表單添加兩個自定義屬性
*--
*-- nxcoord 和 nycoord 用於保存表單的當前位置
*--
*-- 在表單的 MouseMove 中添加以下代碼：
*--
*-- WITH ThisForm
*-- IF MDOWN() AND nButton = 1
*-- .Top = (nYCoord - .nYCoord) + .Top + 1
*-- .Left = (nXCoord - .nXCoord) + ..Left + 1
*-- ENDIF
*-- ENDWITH
*--
*--
*-- 在表單的 MouseDown 中添加以下代碼：()
*-- ThisForm.nXCoord = nXCoord
*-- ThisForm.nYCoord = nYCoord
Local oForm
oForm = CreateObject("frmnotitle")
oForm.show
| 代碼: | **************************************************
*-- 類: frmnotitle (c:\program files\devstudio\vfp\frmnotitle.vcx)
*-- 父類: form
*-- 基類: form
*
DEFINE CLASS frmnotitle AS form
Top = 0
Left = 0
Height = 250
Width = 571
DoCreate = .T.
Caption = ""
ControlBox = .F.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Movable = .F.
WindowType = 1
Name = "frmnotitle"
nxcoord = .F.
nycoord = .F.
ADD OBJECT command1 AS commandbutton WITH ;
Top = 204, ;
Left = 192, ;
Height = 25, ;
Width = 60, ;
Caption = "關閉", ;
Name = "Command1"
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
WITH ThisForm
IF MDOWN() AND nButton = 1
..Top = (nYCoord - .nYCoord) + .Top + 1
..Left = (nXCoord - .nXCoord) + .Left + 1
ENDIF
ENDWITH
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.nXCoord = nXCoord
ThisForm.nYCoord = nYCoord
ENDPROC
PROCEDURE command1.Click
thisform.release
ENDPROC
ENDDEFINE
*
*-- 結束定義: frmnotitle
************************************************** |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
