SendMessage问题

Question

procedure TForm2.Button1Click(Sender: TObject);
var
  p:Cardinal;
  newpt:TPoint;
begin  newpt:= ClientToScreen(Point(Button2.Left,Button2.Top)) ;
    p:= (newpt.Y shl 16) or newpt.X;  
     SendMessage(handle,Messages.WM_LBUTTONDOWN,0,p);//按下
     SendMessage(handle,Messages.WM_LBUTTONUP, 0,p);//抬起      end;end;为什么Button2没反映

Answer 1

有反映了，可是代码没执行Button2Click的代码，是怎么回事

Answer 2

........我晕 你的代码只是让他按下 并 弹起。
直接用......
  Button2.Click;
......

Answer 3

我在研究消息，原来要 SendMessage(Button2.Handle,Messages.BM_CLICK, 0,0);

Answer 4

TButton.click事件是由WM_Command触发的。

Answer 5

为什么不是好用mouse_event？

Answer 6

delphi中的消息怎么转换成c#的消息啊？