请帮忙看一下如下代码。。。。

[cynwhm]

long PosX,PosY;
randomize();
PosX=random(this->Width);
PosY=random(this->Height);
SendMessage(this->Handle,WM_LBUTTONDOWN,PosX,PosY);
SendMessage(this->Handle,WM_LBUTTONUP,PosX,PosY);
为什么在鼠标按下的事件中Y值始终为零？？？？

[l_clove]

用MAKEWORD(PosY, PosX)行么？

[kingfish]

不会啊

另外randomize不必每次都调用，放在formcreate中调用一次就行了

[cynwhm]

我就是找不到原因

[l_clove]

确实如此，每次都是把PosY的值当做X传进去，Y的值为0，是不是应该传一个Points进去？

[kingfish]

lParam
The low-order word specifies the x-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area.

The high-order word specifies the y-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area.

由于高位一直是0，所以Y值一直为0
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
long pt = 0x00100020; //(16,32)
SendMessage(this->Handle,WM_LBUTTONDOWN,MK_LBUTTON,pt);
SendMessage(this->Handle,WM_LBUTTONUP,MK_LBUTTON,pt);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ShowMessage("DOWN("+IntToStr(X)+","+IntToStr(Y)+")");
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ShowMessage("UP("+IntToStr(X)+","+IntToStr(Y)+")");
}
//---------------------------------------------------------------------------

[kingfish]

long PosX,PosY;
PosX = random(this->Width);
PosY = random(this->Height);
SendMessage(this->Handle,WM_LBUTTONDOWN,MK_LBUTTON,PosX + (PosY<<16));
SendMessage(this->Handle,WM_LBUTTONUP,MK_LBUTTON,PosX + (PosY<<16));