Cum pentru a obține mouse-ul pentru a muta în poziția dorită - surse delphi faq

Bunicul trăia într-adevăr, a fost o femeie. Spune omul bătrîna vechi:
- Vechi, lasa Bun lipici și lăsați-l să facă primul calculator în pădure.
Bunica a fost de acord orb Bun, l-instruit pentru a construi un computer.
Turtă dulce este de rulare prin pădure și vede - lupul vine. Turtă dulce om și el întreabă:
- Wolf, un lup, și doriți să fie unitatea de sistem?
- Și ce este?
- Acest lucru înseamnă că veți sta și voi oameni să se hrănească ei înșiși vor fi: un floppy, discuri.
- Vreau sa! - a spus lupul și a devenit unitatea de sistem. Se merge dincolo de coc. Dintr-o data el vede - vulpea, el ia spus, și a zis:
- Fox si Fox, si doriti sa fie monitorul?
- Și ce este?
- Ei bine, e când te uiți la oameni, spion, și ei nu au suspecta.
- Vreau sa! - a declarat Fox și a devenit un monitor.
Turtă dulce laminate pe. Aici Ariciul ruleaza peste drum. El l-au oprit și la întrebat:
- Arici și arici, și doresc să fie o tastatură?
- Și ce este?
- Acest lucru este atunci când oamenii te vor întoarce la zero, astfel încât mangaindu în fiecare zi, și vei culca.
- Vreau sa! - a spus Ariciul și a devenit tastatura.
Gingerbread Man a continuat. El vede - mouse-ul rulează. El a prins-o și a întrebat:
- Mouse-ul, și mouse-ul, și doriți să fie un mouse de calculator?
- Și ce e asta, și cum?
- Acest lucru este atunci când oamenii fiecare zi de guler va ridica și transporta pe saltea acolo - aici, acolo - aici.
- Du-te dracului în f # pu turtă dulce.
De atunci, mouse-ul în f # ne coc.

În acest exemplu, ca și caracteristică SetCursorPos utilizat care stabilește poziția cursorului mouse-ului. Este necesar să se precizeze în paranteze două valori numerice ale lui X și Y, care determină coordonatele noua poziție a cursorului.

Pentru a face acest lucru, procedați în felul următor:

• Se introduce componenta de tip formă TLabel
• Scoateți componenta TTimer
• Declarați două variabile globale:

în ele, vom urmări coordonatele poziției dorite de cursorul mouse-ului

Formularul Eveniment OnActivate () activează variabilele: