Hogyan juthat el az egeret mozgatni a kívánt helyre
Nagyapa élt valóban egy nő. Mondja az öreg öregasszony:
- Régi, hadd Bun ragasztó és hagyjuk, hogy megtegye az első számítógép az erdőben.
Nagymama beleegyezett vak Bun, utasította, hogy építsenek egy számítógép.
Mézeskalács gurul az erdőben és látja - a farkas jön. Mézeskalács ember és azt kérdezi:
- Wolf, a farkas, és azt szeretné, hogy a rendszer egység?
- És mi ez?
- Ez azt jelenti, hogy akkor üljön, és akkor az emberek, hogy táplálékhoz lesz: a floppy lemezek.
- Azt akarom, hogy! - mondta a farkas, és lett a központi egységet. Ez túlmutat a zsemle. Hirtelen látja - a róka, azt mondta neki, és azt mondta:
- Fox és a Fox, és azt szeretné, hogy a monitor?
- És mi ez?
- Nos, ez az, amikor nézi az embereket, kém, és nem is gyanús.
- Azt akarom, hogy! - mondta Fox lett a monitor.
Mézeskalács hengerelt. Itt sündisznó fut át az úton. Megállt, és megkérdeztem:
- Hedgehog és Hedgehog, és azt szeretnék, hogy a billentyűzet?
- És mi ez?
- Ez az, amikor az emberek akkor vissza a semmiből, így simogatta minden nap, és akkor feküdjön le.
- Azt akarom, hogy! - mondta a sün és lett a billentyűzetet.
Mézeskalács ember ment. Látja - az egér fut. A férfi elkapta, és megkérdezte:
- Egér és az egér, és azt szeretné, hogy egy számítógépes egér?
- És mi ez, és hogyan?
- Ez az, amikor az emberek minden nap a gallér felveszi, és folytatni a szőnyeg ott - itt is, ott - itt.
- Baszd meg az f # pu Gingerbread.
Azóta az egeret a f # ne zsemle.
Ebben a példában használt SetCursorPos funkció, amely meghatározza a helyzetét a kurzor. Ő kell határozni, hogy a zárójelben két számértékek az X és Y, ami meghatározza a koordinátáit az új helyzetben a kurzort.
Ehhez az alábbiakat kell tennie:
- Helyezzük az alkatrész alakját típusú TLabel
- Vegye ki TTimer alkatrész
- Állapítsa két globális változót:
bennük fogjuk követni a koordinátákat a kívánt helyre az egérmutató
Esemény forma OnActivate () aktiválja a változókat: