请问如何用发送消息的方法模拟单击ToolBar上的一个按钮？

Question

我做过，我知道：var
        pt, ptold : TPoint;
begin
        pt:= ToolBarbtn1.ClientToScreen(pt); //模拟点击 ToolBarbtn1
        getcursorpos(ptold);
        setcursorpos(pt.X, pt.Y);
        mouse_event(MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
        mouse_event(MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
        setcursorpos(ptold.X, ptold.Y);
        key:= 0;end;

Answer 1

修改一下：procedure TfrmMain.Button1Click(Sender: TObject);
var
        pt, ptold : TPoint;
begin
        pt.X:= 0;
        pt.Y:= 0;
        pt:= ToolBarbtn1.ClientToScreen(pt); //模拟点击 ToolBarbtn1
        getcursorpos(ptold);
        setcursorpos(pt.X, pt.Y);
        mouse_event(MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
        mouse_event(MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
        setcursorpos(ptold.X, ptold.Y);
        key:= 0;
end;

Answer 2

哦，还有，把上面最后那个 key:=0 去掉。