قرار گرفتن موس در مختصات مشخص

با سلام

دوستان من می خوام موس در مختصات خاصی که بهش تعیین می کنم قرار بگیره سپس روی اون نقطه کلیک کنه

که البته در اون نقطه یک button هم قرار داره

با تشکر
:10:

اين براي حرکتش

کد:

---

http://rapidshare.com/files/268252674/Cursor_Move.zip.html

---

کليک هم با خودت ديگه

سلام
برنامه رو برات نوشتم. اگه مشكلي داشتين بپرسين.
برنامه موس رو به مختصات x و y مي بره و در صورتي كه در اون نقطه دكمه اي وجود داشته باشه، روي اون كليك مي كنه.
نسخه دلفي 2009.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دانلود برنامه:
KB 9

کد:

---

http://rapidshare.com/files/268390988/Pos.rar.html

---

سورس:
توابع اصلي براي دوستاني كه قصد دانلود برنامه رو ندارن.

کد:

---

Function TForm1.Calc_Region(Ctrl: TControl ; mx , my :integer) : boolean;
var
  VC , HC : integer;
 begin
  result := false;
  VC := 0; HC := 0;
  if (Self.BorderStyle<>bsNone) then
  begin
    HC := (Self.Width - Self.ClientWidth) div 2;
    VC := (Self.Height - Self.ClientHeight);
    if Self.WindowState <> wsMaximized then
      Dec(VC , HC)
  end;

  SetCursorPos(mx + Self.Left + HC, my + Self.Top + VC);

  FindControl(mx , my );
end;

Procedure TForm1.FindControl(x: Integer; y: Integer);
var
  i : integer;
  TC : TControl;
  CW , CH : integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
    Begin
      if (Self.Components[i]  is TControl) then
      begin
        TC := TControl(Self.Components[i]);
        if (((x < TC.Left + TC.Width) and (x > TC.Left)) and
        ((y < TC.Top + TC.Height) and (y > TC.Top))) and (TC.ClassName='TButton') then
          (TC as TButton).Click;
      end;

    End;
end;

---

از دوستان بابت کمک بسیار ممنونم

نقل قول:

---

از دوستان بابت کمک بسیار ممنونم

---

کلید تشکر برای جلوگیری از ارسال چنین پستهایی هست