Cum se face trecerea mouse-ului în poziția dorită
A trăit un bunic și o femeie. Bătrânul ia spus bătrânei:
- Vechi, să lipim kolobok-ul și să-l lăsăm să facă primul computer din pădure.
Bunica a fost de acord, a orbit colibok-ul, la instruit să asambleze calculatorul.
Trecând de-a lungul pădurii, vede - lupul vine. Kolobok la întrebat:
- Wolf și Wolf, dar vrei să devii bloc de sistem?
- Și ce este?
- Aceasta înseamnă că veți sta și voi veți fi hrăniți: dischete, discuri.
- Vreau să! - a spus Wolf și a devenit o unitate de sistem. Ieși bunny. Dintr-o dată vede o vulpe, îi spune:
- Fox și Fox, vrei să fii un monitor?
- Și ce este?
- Ei bine, atunci când vă veți uita la oameni, veți privi și nu bănuiesc nimic.
- Vreau să! a spus Fox și a devenit un monitor.
Kolobok se rostogoli. Apoi, ariciul traversează drumul. El la oprit și a întrebat:
- Arici, arici, și vrei să fii o tastatură?
- Și ce este?
- Acesta este momentul în care oamenii vă veți zgâria spatele, dați în fiecare zi și veți minți.
- Vreau să! a spus Ariciul și a devenit o tastatură.
Kolobok a continuat. Vede că mouse-ul rulează. El a prins-o și a întrebat:
- Mouse-ul și mouse-ul, dar doriți să fiți un mouse computer?
- Și asta este și ce?
- Acesta este momentul în care oamenii pe care îl veți lua în fiecare zi pentru a se arunca pe un covor acolo - aici, acolo - aici.
- Da, te-ai dus la # poo, Kolobok.
De atunci, mouse-ul are un # bob bob.
În acest exemplu, se utilizează de asemenea funcția SetCursorPos, care stabilește poziția cursorului mouse-ului. Este necesar să specificați două valori numerice X și Y în paranteze care determină coordonatele noii poziții a cursorului.
Pentru a face acest lucru, trebuie să faceți următoarele:
- Plasați componenta TLabel pe formular
- Scoateți componenta TTimer
- Declarați două variabile globale:
în ele vom urmări coordonatele poziției dorite pentru indicatorul mouse-ului
În formularul OnActivate (), activați variabilele: