模拟按下TAB键

Question

SendMessage(WM_NEXTDLGCTL, 0, 0);

Answer 1

KAO，每次都来迟，抗议！！！

Answer 2

SendMessage(self,WM_NEXTDLGCTL, 0, 0);

Answer 3

SendMessage(xzhifei.Handle, WM_NEXTDLGCTL, 0, 0); //这里没有看出来？
//这只是一种方法，还有其他呀//如下代码没有测试过
SendMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
SendMessage(Handle, WM_KEYUP, VK_TAB, 0);
//or
SendMessage(Handle, WM_CHAR, 9, 0);

Answer 4

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PostMessage( Form1.Handle,WM_KEYDOWN,VK_TAB,0 );
或perform(WM_NEXTDLGCTL,0,0);
或SelectNext(activecontrol,true,true);
end;

Answer 5

请把代码放在‘是’BUTTON中的MOUSEDOWN事件中，运行以上各兄弟的建议，保证你用鼠标只能点‘否’，不能点‘是’！

Answer 6

TO：
   jimhuo(箭) 
我在我的form里放了两个BUTTON，一个“是”，一个是“否”
我现在只想让鼠标放在点“否”当鼠标move到“是”的时候
让“是”产生一个近似排斥的样子，鼠标move到“是”上，
“是”就滑开，永远点不着，就是这样的问题分不够我马上加分

Answer 7

可以是可以了，你们能讲一下，如何才能让”是“按钮在鼠标move在其上时马上滑动呢？
 小弟实在愚昧~~

Answer 8

是不是让BUTTON满FORM里乱跑躲着鼠标？
用MOUSEMOVE事件+控制BUTTON.LEFT

Answer 9

我也是这么想的，我做了一个滑动小游戏，就是和打气球一样的。
可以练习指法。多谢多谢楼上的兄台和zswang(伴水)(准备去流浪）