VFP 愛用者社區

[gino1725]

請教先進,

下列這二段VB的語法,如何改寫為VFP的語法?
preWinProc = GetWindowLong(Me.HWnd,GWL_WNDPROC)
ret = SetWindowLong(Me.HWnd,GWL_WNDPROC,AddressOf wndProc)

SetWindowLong()是要用BINDEVENT()函數改寫嗎?
應該怎麼改?

感謝!!!

[oldbb]

ret = SetWindowLong(Me.HWnd,GWL_WNDPROC,AddressOf wndProc)
關鍵在 AddressOf wndProc，wndProc 是要替換的視窗過程，傳入SetWindowLong()的是wndProc的地址（函數指針）。
VFP寫的過程函數是動態解釋執行，沒有靜態地址，不能直接作爲SetWindowLong()的wndProc使用，只能借助其他編程語言（如ASM、C++）寫的過程（函數）來調用VFP的過程。如用嵌入二進制內碼（匯編碼）或寫動態擴展庫DLL，就可以在其他語言寫的過程（函數）中調用VFP，或者通過VFP寫的COM服務調用VFP的過程（函數）。

[oldbb]

如果只是針對本進程的某些消息處理，可通過視窗的hWnd用BINDEVENT()綁定消息。