怎样判断鼠标的双击
if (Shift=[ssRight,ssDouble])右键
if (Shift=[ssLeft,ssDouble])右键
*********
if ssDouble in Shift then
模拟鼠标的事件
Control1.Perform( WM_LBUTTONDOWN, Keys, MakeLong(yPos, xPos) ); // 鼠标按下
Control1.Perform( WM_LBUTTONUP, Keys, MakeLong(yPos, xPos) ); // 鼠标抬起