Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
½Ð°Ý¦p¦ó±N mouse pointer Âê©w¦b¤@Ó Form ©Î TWinControl ùر¤£Åý¥¦¶]¥X³oÓ½d³ò©O ?
½Ð¦b Form ¤¤©ñ¸m¤GÓ Button, µM«á¤À§O¬°³o¨âÓ«ö¶s¼¶¼g OnClick, ¦p¤U:
// DELPHI 2 procedure TForm1.Button1Click(Sender: TObject); var rtButton2: TRect; begin rtButton2 := Button2.BoundsRect; MapWindowPoints(handle, 0, rtButton2, 2); // ®y¼Ð´«ºâ ClipCursor(@rtButton2); // ¨î·Æ¹«²¾°Ê°Ï°ì end; // ÁÙì procedure TForm1.Button2Click(Sender: TObject); var rtScreen: TRect; begin rtScreen := Rect(0, 0, Screen.Width, Screen.Height); ClipCursor(@rtScreen); end;
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |