为什么不可以循环？

Question

下面代码，为什么？procedure TForm1.Button1Click(Sender: TObject);
begin
    SendMessage(Button2.Handle,BM_CLICK,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    SendMessage(Button1.Handle,BM_CLICK,0,0);
end;

Answer 1

SendMessage出去的消息系统不一定会有响应

Answer 2

很简单,改为PostMessageprocedure TForm1.Button1Click(Sender: TObject);
begin
    PostMessage(Button2.Handle,BM_CLICK,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    PostMessage(Button1.Handle,BM_CLICK,0,0);
end;区别不用我说了吧?^_^

Answer 3

晕~~~,既然出现3人同时发贴的情况~~~呵呵
回复人： cg1120(代码最优化－§新年祝福你，好运伴着你§) ( ) 信誉：132  2003-02-07 17:22:00  得分:0 
回复人： newfang(方方) ( ) 信誉：100  2003-02-07 17:22:00  得分:0 
回复人： ehom(？！) ( ) 信誉：128  2003-02-07 17:22:00  得分:0