1、unusedVt:OleVariant;
TVarData(unusedVt).vType:=varError;
TVarData(unusedVt).vError:=DISP_E_PARAMNOTFOUND;
========================================================
2、把Label动态的定位到光标处:
在MouseMove中写如下的代码:
ReleaseCapture;
Label1.Perform(WM_SYSCOMMAND,$F012, 0);
TVarData(unusedVt).vType:=varError;
TVarData(unusedVt).vError:=DISP_E_PARAMNOTFOUND;
========================================================
2、把Label动态的定位到光标处:
在MouseMove中写如下的代码:
ReleaseCapture;
Label1.Perform(WM_SYSCOMMAND,$F012, 0);
2。perfrom绕开windows消息队列,直接给控件发消息,wm_syscommand是系统消息,$F012,0是消息参数,是横纵坐标。