var pos:word; begin wordrec(pos).lo:=10; //X位置 wordrec(pos).hi:=10; //Y位置 sendmessage(button2.Handle,wm_lbuttondown,MK_LBUTTON,pos); end;