|
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才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|