GetCursorPos(mousept);编译错误

[tom20803862]

delphi 6 中
GetCursorPos(mousept);编译错误Statement expected, but expression of type 'LongBool' found
如何解决？

[jjpweb]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var p:TPoint;
begin
    GetCursorPos(p);
    label1.caption := IntToStr(p.X)+','+ IntToStr(p.y);
end;

[lyhoo163]

// GetCursorPos 获取的是鼠标相对与屏幕的位置

var mousept: TPoint;   // 只要mousept声明为TPoint
begin
  GetCursorPos(ps);    // 执行不会出现问题 
end;

你检查一下变量mousept的声明。

[shadowpj]

应该是你变量申明类型问题。mousept: TPoint; 就没问题了！

[tom20803862]

var mousept: TPoint; //鼠标点击位置 lb : longbool; begin inherited; if message.LParam = wm_rbuttonup then begin lb:=GetCursorPos(mousept); 这样就能编译成功， 我他妈的真气晕了。