setcapture(handle)为啥只监控一次鼠标点击啊??只能监控鼠标一次点击呢?再点击咋监控不了呢?如何让监控保持一段时间呢??procedure TForm1.btn1Click(Sender: TObject);
begin
  setcapture(handle); // 设置捕获鼠标输入
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
    arr: array[0..254] of Char;
    i: integer;
    classid:string;
begin
  StrClassName:='';
  if GetCursorPos(pt) then             {如果能获取点}
  begin
    h:=SmallestWindowFromPoint(pt);
    GetParentName(h);
    i:= HWNDList.IndexOf(inttostr(h));
    if i<>0 then
    begin
      classid:=classidList.Strings[i];
    end;
    mmo1.Lines.add('--------');
    mmo1.Lines.add('句柄:'+inttostr(h));
    mmo1.Lines.add('classid: '+classid);
    mmo1.Lines.add('父类id:'+StrClassName);
    mmo1.Lines.add('--------');
  end;end;