请大家帮我解决一个问题：一定有分

Question

截取wm_nchip???消息,在这个msg里有属性返回鼠标的位置,当然还有形状:),你就不用判断
位置,只要形状变成那种双箭头就可以写你的代码了,那个消息搞忘了叫什么了,呵呵.查查资料吧,老兄

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
var mousepoint:tpoint;
var wrect:trect;
var handle:hwnd;
begin
handle:=findwindow('progman',nil);
getwindowrect(handle,wrect);
getcursorpos(mousepoint);
if mousepoint.X=wrect.Left  then
  begin
   这里是代码
  end;
if mousepoint.y=wrect.right then
  begin
   这里是代码
  end;
end;