Visual Foxpro-ban hogy lehet egy objektumnak küldeni egy üzenetet? Egyszerűen. Egy Paste üzeneten mutatom meg:
#DEFINE WM_USER 0x400
#DEFINE WM_COPY 0x301
#DEFINE WM_CUT 0x300
#DEFINE WM_PASTE 0x302
#DEFINE WM_UNDO 0xc6
#DEFINE WM_REDO (WM_USER+85)
DECLARE SendMessage IN user32 ; INTEGER hWnd, INTEGER wMsg, INTEGER wParam, INTEGER lParam
SendMessage(THISFORM.Edicion1.OBJECT.Hwnd,WM_PASTE,0,0)
#DEFINE WM_USER 0x400
#DEFINE WM_COPY 0x301
#DEFINE WM_CUT 0x300
#DEFINE WM_PASTE 0x302
#DEFINE WM_UNDO 0xc6
#DEFINE WM_REDO (WM_USER+85)
DECLARE SendMessage IN user32 ; INTEGER hWnd, INTEGER wMsg, INTEGER wParam, INTEGER lParam
SendMessage(THISFORM.Edicion1.OBJECT.Hwnd,WM_PASTE,0,0)
Megjegyzések